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PROGRAM  laser  { INPUT, 0UTPUT»TAPE2#TAPE3#TAPE4#TAPE5#TAPE6«0UTPUT#  LASER  2 

1  tApE7,TAPE8.TAPE9#TAPE10«lNPUT)  LASER  3 

LASER  A 

LASER  5 

LASER  6 

THIS  PROGRAM  IS  A GENERAL  LASER  KINETICS  SYNTHESIS  CODE  WHICH  CAN  LASER  7 

BE  USED  TO  AUTOMATICALLY  GENERATE  SUBROUTINES  REOUIREO  FOR  A LASER  S 

COUPLED  ANALYSIS  Of  MOLECULAR  AND  ELECTRON  KINETICS.  OPTICAL  EX-  LASER  9 

TRACTION#  ANO  EXTERNAL  DRIVING  CIRCUIT.  THE  MOLECULAR  KINETICS  LASER  10 

MECHANISMS  are  oefined  BY  AN  arbitrarily  LONG  INPUT  QUEUE  OF  SYM-  laser  11 

bolic  reactions#  followed  by  their  forwaro  ano/or  reverse  rate  laser  12 

CONSTANTS*  which  are  automatically  translated  into  computer-cooed  LASER  13 

EQUATIONS.  the  synthesized  subroutines  required  for  the  COMPLETE-  LASER  1* 

LY  COUPLED  ANALYSIS  are  compiled  ano  added  to  ALL  OTHER  REOUIREO  LASER  15 

SUBROUTINES  for  EXECUTION.  a MULTISTEP  GEAR  INTEGRATION  SCHEME  LASER  16 

for  stiff  systems  of  differential  equations  is  USED  For  The  FINAL  LASER  17 

ANALYSIS.  the  treatment  of  electron  KINETICS  consists  of  numeri-  laser  18 

CAL  SOLUTION  OF  THE  BOLTZMANN  TRANSPORT  EQUATION,  WITH  SUPERELAS-  LASER  19 

tic  collisions  ano  electron-electron  scattering  included,  the  laser  20 

radiative  extraction  is  formulated  in  terms  of  the  cavity  PHOTON  LASER  21 

DENSITY  (N  « I/C»H»NU>,  WITH  A SPONTANEOUS  EMISSION  SOURCE  TERM  LASER  22 

ano  AMPLIFICATION  FROM  STIMULATED  EM'SSION.  LASER  23 

LASER  24 

LASER  25 

THIS  CODE  WAS  DEVELOPED  BY  — LASER  26 

LASER  27 

......................... LASER  28 

I I LASER  29 

1 OR.  WILLIAM  B.  LACINA  I LASER  30 

I NORTHROP  RESEARCH  ANO  TECHNOLOGY  I LASER  31 

1 ONE  RESEARCH  PARK  I LASER  32 

I PALOS  VERDES  PENINSULA#  C*  90274  I LASER  33 

I TEL  * (213)  377-4811*  EXT.  322  I LASER  34 

I I LASER  35 

........................... LASER  36 

LASER  37 

LASER  38 

COMPLETE  DOCUMENTATION  OF  THE  PRESENT  COOE  (INCLUDING  A DISCUSSION  LASER  39 

OF  THE  MATHEMATICAL  FORMULATION.  DESCRIPTION  OF  THE  SUBROUTINES  LASER  40 

ANO  NUMERICAL  TECHNIQUES#  ANO  INSTRUCTIONS  FOR  USAGE)  IS  AVAILABLE  LASER  41 

IN  PUBLISHED  REPORTS  ( 197B) • LASER  42 

LASER  43 

..... ....... .... LASER  44 

LASER  45 

DECLARATION  STATEMENTS  — LASER  46 

LASER  47 

DIMENSION  KF (200) # KR(200>,  GAS(200>#  RATEKC200I.  FLAG(200>#  LASER  48 

1 LEvl (25) • LEV2 (2S) • NM25I#  N2(2S>#  VSlG(2,25>#  POwER(2S),  U(25)*  LASER  49 

2 NEl (25) • PROCESS (4.25) . 0(501,25).  QM(501).  QMOM(501.2>#  F(S01>*  LASER  50 

3 S 150 1 ) • 0(501 ) • A (501# 3) • 8(501).  EV(SOl),  NAME ( 30) . MASS(30>#  LASER  51 

4 FI (]0) • E (30 ) # PLOTS ( 30 ) # PMAXI30).  NTlME(30>.  RPCT(30>»  POP(32)#  LASER  52 

5 NO(32) , NOOT (32) . DNYDTN (32.8),  SCRTCH(32, 12) • YMAX(32>«  ERR(32>#  LASER  S3 

6 PHI (32,65) , NOUT (201.2,32)#  TIME(?01>,  ISUS(20l,2),  COND(201#2>#  LASER  54 

7 IBeaM (201) , RAD(20l #3) • ALPHA (201 .4) • TB(21).  J8(21>.  COMMENT(S)#  LASER  55 

8 TO  (2)  • DY  (2)  • RATE  (2)  # RNaMEUO)#  IMAgE(B),  TlTLE(3).  KAPTI0N(4).  LASER  56 

9 10(10).  OUT (10).  DUM (5,2) , L ABEL ' 5,2 * • LINEI250)#  ERROR(lO)#  LASER  57 

S FATAL ( 10) • MOM (50 ) # IT AU (30)  LASER  58 
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c 
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REAL  NO*  Ml,  N2.  NOOT.  KF.  KR,  NTOT*  NoUT,  NMOL*  MASS,  MOLwT.  KB* 

1 LOIdT*  ME.  MU*  ISUS*  NE*  IBEAM,  INDUCT*  kvolt*  loss*  LENGTH* 

2 JBEAM.  JSUS.  KVCM*  IONIZE*  JB 

integer  gas,  TYPE*  TITLE*  RATE*  LHS.  Rhs.  today.  GENOATE*  WARN, 

1 WO«D 

LOGICAL  CONVRGE.  error,  REJECT,  stop*  fatal,  list.  out.  elect. 

1 EXPAND*  TEST.  MISSING.  OUTSIOE*  STlM.  ENO.  MODIFY.  ILLEGAL. 

2 ARC,  FLAG.  INTRP.  PLOTS.  REPEAT,  ERRORS.  FE 

EQUIVALENCE  (8,QM> 


LABELED  common  blocks  — 

COMMON  / DATA  / RATEK,  KF,  KR,  VSIG,  E 

COMMON  / OISCH  / INOUCT.  capac.  resist,  MU.  area,  dist 

COMMON  / GAINS  / gnet,  gamma,  gain,  ABSORB,  omega,  length,  cavity 

COMMON  / SOURCE  / UPLUS.  jbeam,  ovox.  factor,  ENERGY,  SB*  so 

COMMON  / CONST  / NTOT,  TMOL*  FREQ*  HNU 

COMMON  ✓ TIMES  / TR,  TF.  TFALL.  TC,  TB,  JB.  INTRP.  NPTS.  UNITS 


data  initialization  — 

DATA  mesh.  ITMAX*  METHOO.  MAXOER,  IDEG,  10.  NSIZE.  LIMIT.  NCYCLE* 
I MOUNT  / 500,  100*  1.  7,  2.  10*1  • 10,  2*200.  20  / 

DATA  EMAX.  TMAX.  EPS*  ETA,  re.  ELIMIT*  PCT,  PER.  WARN  / 20. 0. 

1 50.0*  3*0.001*  30.0,  2*5.0,  BHWARNlNGl  / 

DATA  KB*  EE.  PI,  EFMT,  FFMT  / 1.38E-23.  1.602E-19*  3.14159. 

1 9HC1PE10.2),  7H(F10.2I  / 

o*ta  out*  expand,  repeat,  fatal*  fe*  error,  errors,  plots,  flag* 

1 LIST  / 64*. FALSE.*  201*. TRUE.  / 


namelist  parameters  — 

NAMELIST  / CONTROL  / EMAX.  MESH,  EXPAND.  ITMAX,  TMAX.  EPS,  IDEG. 
1 PCT,  MOUNT,  NCYCLE*  LIMIT,  MAXOER.  METHOD.  ETA*  FATAL*  10 

NAMELIST  / PARAM  / TPULSE.  TMOL.  TE.  PTOT,  ATM 

NAMfLIST  / RATES  / KF.  KR 
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NAMELIST  / EBEAM  / JBEAM*  ENERGY*  FACTOR*  TR.  TF.  TC.  TFA|_L*  UA. 
1 U8*  JB*  TB.  UNITS 


NAMELIST  t CIRCUIT  / KVOLT * INDUCT,  CAPAC.  RESIST*  AREA*  DIST 


NAMELIST  / OPTICAL  / LOSS.  REFLECT , GAMMA*  AREA*  LENGTH*  CAVITY. 
1 OMEGA 


ARRAY  STORAGE  IS  OEPINEO  BY  The  FOLLOWING  dimension  declarators  — 


MAA  x 200 
Ml  X MaX»1 

<MAx  X MAXIMUM  VALUE  OF  NCYCLE.  THE  NUMBER  OF  INTERVALS  INTO  WHICH 
the  total  pulse  ouration  is  subdivided  tor  Boltzmann  calculations 

and  OUTPUT  GENERATION.) 

MGRiD  x 500 

(MGRIO  » MAXIMUM  NUMBER  OF  BINS  INTO  WHICH  THE  ELECTRON  ENERGY 

range  may  be  partitioned  in  the  e-  kinetics  analysis.) 

KMAx  X 200 

<KMax  X MAXIMUM  NUMBER  OF  REACTIONS) 

NMAX  « 30 

(NMAX  x MAXIMUM  VALUE  OF  NTYPE.  THE  NUMBER  OF  SPECIES) 

NMAXP2  » NMAX *2 

<NHAXP2  IS  MAXIMUM  NUMBER  OF  EQUATIONS  FOR  SPECIES  ANO  CIRCUIT.) 
NKMax  x 25 

(NKMAX  « MAXIMUM  value  OF  NK  X NUMBER  of  SECONDARY  E-  REACTIONS) 


IF  IT  IS  DESIRED  TO  CHANGE  DIMENSION  STORAGE.  THE  ABOVE  DECLARATOR 
VALUES  MUST  BE  MOOIFIED.  AnO  THE  FOLLOWING  MISCELLANEOUS  ARRAYS 
MUST  BE  CHANGED  (AS  SHOWN)  IN  THE  DIMENSION  STATEMENT  — 


KF (KMAx) * KRIKMAX).  GAS(KMaX),  LEV) (NKMAX),  LEV2INKMAX) * N) (NKMAX) 
N^(NKMaX).  VSIG(2*NKMAX> * POWER (NKMAX) ♦ U (NKMAX ) * NEL (NKMAX  > * 
PROCESS (4. NKMAX > * QIMGRIOM.NKMAXI , QM(MGRID*1>.  QMOM (MGRID* 1*2)* 
FIMGRID’D*  G ( MGR  1 0 * 1 > * A(mGRID*1*3I  . B(MGRID*D*  EV(MGRID*D* 
Fl(NMAx).  NAME (NMAX ) . MASS(NMAX),  E(NMaX),  PLOTS(NMAX),  PMAX(NMAX) 
NMMEInMAX),  RPCT(NMAX),  N0(NMAXP2),  P0P(NMAXP2I.  NDOT (NMAXP2) * 
DNYDTN(NMAXP2*B) * NOUT ( MAX ♦ 1 . 2 » NMAX *2 ) • YMAX (NMAXP2) . ERR (NMAXP2) * 
SCRTCH(NMAXP2,i2),  PHI (NMAX»2,2«NMaX*5) * S(MGR(0*1),  TIME(MAX»1). 
ISOS (MAX* 1*2),  C0N0(MAX«I*2> • IBEAM(MAX*1)*  RAO (MAX* 1*3). 

ALPHA (MAX » 1 ,4 ) , RATEK(KMAX) 


note  also  that  dimensions  of  arrays  which  occur  in  labelled  common 
blocks  must  be  accordingly  modified  in  ANT  SUBROUTINE  where  they 
OCCUR.  IN  PARTICULAR,  common  / OATA  / CONTAINS  DIMENSIONS  IN  THE 
SYNTHESIZED  SUBROUTINES  * JACOB*  ANO  *ONOT*. 


if  CERTAIN  DIMENSION  DECLARATORS  DO  NOT  AGREE  WITH  THOSE  ON  AN  IN- 
PUT DATA  file  (NSCRTCH)  ACCESSED  DURING  execution*  an  exit  occurs. 


file  USAGE  — 


INPUT  CARO  FILE  — 
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SYNTHESIS  OF  MOLECULAR  KINETICS  SUBROUTINES 


SYNTHESIZE  SUBROUTINE  *DNOT*  ANO  • JACOB*  TO  CALCULATE  THE  VALUES  LASER 

of  dni/ot  and  o/dnji dni/ot i as  a function  of  time,  ano  subroutine  laser 
•levels*  to  define  the  correspondence  of  loner  ano  upper  states  in  laser 

the  E-  KINETICS  analysis  MlTM  THE  MOLECULAR  SPECIES  LABELS  — LASER 

LASER 


IT 


c 

read  data  block  no.  i — 

LASER 

230 

4 

CALL  EoITOR  (KAROS, LIST) 

LASER 

231 

GENoaTE  * TooaY 

laser 

232 

c 

LASER 

233 

call  Synth  <ltape.  mtape.  nTape,  nscrtch,  input,  nsize,  nhax,  gas. 

laser 

234 

l ' KHAx»  NKMAX,  LEvl.  LEV2.  TODAY) 

LASER 

235 

c 

LASER 

236 

c 

at  the  termination  of  program  generation,  the  synthesized  subrou- 

LASER 

237 

c 

TINES  <80  BCD  CHARACTER  RECORDS)  ARE  STORED  ON  FILE  *KTAPE»  » 3. 

LASER 

238 

c 

WHICH  IS  USED  AS  A SOURCE  FILE  TO  BE  COMPILED  (AND  CATALOGED  As  A 

LASER 

239 

c 

BCD  update  FILE.  IF  OESIREO).  numerical  data  associated  WITH  Rate 

LASER 

240 

c 

CONSTANTS  and  INFORMATION  CHARACTERIZING  the  reaction  scheme  en- 

LASER 

241 

c 

COUNTERED  ‘UPON  WHICH  THE  SYNTHESIZED  SUBROUTINES  ARE  BASED)  IS 

laser 

242 

c 

storeo  on  file  *nscRTch«  * a.  if  future  execution  of  the  analysis 

LASER 

*43 

c 

IS  INTENOEO.  «NSCRtCH»  must  also  be  catalogued  and  saved. 

LASER 

244 

c 

LASER 

245 

call  exit 

LASER 

246 

c 

LASER 

247 

c 

LASER 

249 

c 

GENERATE  an  updated  electron  cross  section  file  — 

LASER 

250 

c 

READ  data  block  NO.  2 — 

LASER 

251 

3 

call  editor  ikards. list) 

LASER 

252 

call  UPOaTE  (INPUT.  NOaTA.  NTaPE.  .NOT. LIST,  TODAY) 

LASER 

253 

c 

LASER 

254 

c 

LASER 

255 

CALL  COVER  (TITLE* 2) 

LASER 

256 

c 

LASER 

257 

c 

LASER 

258 

c 

read  oata  BLOCK  NO,  3 — 

LASER 

259 

c*ll  editor  <karos,.not.list> 

LASER 

260 

c 

LASER 

261 

laser 

262 

c 

generate  comment  card  information*  if  any  — 

LASER 

263 

c 

“A5ER 

c64 

lC  ■ 0 

LASER 

26S 

55 

read  (5*101)  IMAGE 

LASER 

266 

IF  (EOF (5))  56,59 

LASER 

267 

59 

IF  (LC.GT.O)  GO  TO  57 

LASER 

268 

WRITE  (6.306) 

LASER 

269 

WRITE  (6.302) 

LASER 

270 

57 

LC  » LC* I 

LASER 

271 

WRITE  (6.303)  IMAGE 

LASER 

272 

IF  (LC.NE.30)  GO  TO  55 

LASER 

273 

WRITE  <6*302) 

laser 

274 

LC  » 0 

LASER 

275 

GO  TO  SS 

LASER 

276 

56 

I F (LC.NE.O)  WRITE  (6,302) 

LASER 

277 

c 

LASER 

278 

c 

READ  data  BLOCK  NO.  4 — 

laser 

279 

CALL  EOITOR  (KAROS, LIST) 

LASER 

2B0 

c 

LASER 

281 

l»  A5ER 

282 

c 

read  general  control  parameters  that  define  accuracies,  scope  of 

LASER 

283 

c 

CALCULATIONS.  ITERATION  LIMITS.  INTERPOLATION  order,  methoo  of 

LASER 

284 

c 

c 

integration,  and  output  options  — 

LASER 

LASER 

285 

286 

5 


IF  (METHOD. NE.O. AND. METHOD. NE. 2)  METHOo  a 1 

IF  (MAxOER. GT. 81  MAXOER  a 8 

IF  (MAxDER.EQ. 8. AND. METHOD. NE.O)  MAXOER  a 7 

IF  (NCyCLE. LE.O)  ncycle  * 1 

IF  (NCyCLE.GT.MAX)  NCYCLE  a MAX 

IF  (LIMIT. LT.O)  LIMIT  * 0 

IF  (LIMIT. GT. NCYCLE)  LIMIT  » NCYCLE 

READ  (NSCRTCH)  MAXGASt  NTYPE*  MAXK,  KTyPE,  MAXNK,  NK.  ERRORS 
ERRORU)  » ERRORS 

ERR0R<8>  ■ (MAXGAS.NE.NMAX) .OR. (MAXNK. NE.NKMAX) .OR. (MAXK.NE.KMAX) 

if  the  following  condition  OCCURS*  DIMENSION  storage  is  inadequate 
ERR0RI9)  * (NTYPE. GT.NMAX) .OR. (KTYPE. GT.KMAX) .OR. (NK.GT.NKMAX) 

truncate  data  file  *nscrtch*  if  necessary  — 

IF  (NTYPE. GT.NMAX)  NTYPE  « NM AX 
IF  (KTyPE. GT.KMAX)  KTYPE  * KMAX 
IF  (NK.GT.NKMAX)  NK  * NKMAX 

read  (NSCRTCH)  (GAS(N),  N = 1, NTYPE) 

REAo  (NSCRTCHI  (LEVl(N),  LEV2(N).  N * 1*NK) 

00  72  I * 1*10 
72  OUT ( I ) a 10(1). NE.O 

READ  GENERAL  EXPERIMENTAL  parameters  RELATING  to  TEMPERATURE. 
pressure,  pulse  length,  and  modification  of  rate  constants  — 


pTOT  a ATM  x TPULSE  a TE  a o. 
TMOl  * 300. 


READ  (S.PXRAM) 


IF  (MESH.GT.MGRID)  MESH  a MGRIO 
MESHPl  = MESH* 1 
IF  (TMOL.LE.O.)  TMOL  a 300. 

IF  (TE.LE.O.)  TE  a TMOL 
IF  (PTOT.EQ.O.)  PTOT  a 760.*ATM 
ATM  « pTOT/760. 

UNIT  a 1.0 

IF  (TPULSE. LE.O.)  go  TO  *2 
TT  x TPULSE 

A3  1^  (TT.GT.l)  GO  TO  A2 
TT  x 1000.*TT 
UNIT  * UNIT/1000. 


LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 


V 


6 


I 


f 


I 


GO  TO  43 

LASER 

344 

42 

TOUT  * TPULSE/NCYClE 

LASER 

345 

otihe  = TOUT/UNIT 

LASER 

346 

c 

LASER 

34  7 

c 

reao  optical  RESONATOR  PARAMETERS  (REFLECTIVITY.  loss. 

LENGTH. 

LASER 

349 

c 

omega.  ETC. ) — 

LASER 

350 

351 

c 

laser 

352 

LOSS  = REFLECT  = GAMMA  = 0. 

LASER 

353 

LENGTH  * CAVITY  * AREA  * OMEGA  = 0. 

LASER 

354 

c 

LASER 

355 

c 

LASER 

356 

READ  is. OPTICAL) 

LASER 

357 

c 

LASER 

358 

c 

LASER 

359 

IF  (LENGTH. LE. 0. ) LENGTH  * 0.01 

LASER 

360 

IF  (CAVITY. LE.O.)  CAVITY  * LENGTH 

LASER 

361 

IF  (CAVITY. LT. LENGTH)  CAVITY  = LENGTH 

LASER 

362 

STIM  * REFLECT. GT.O. 

LASER 

363 

IF  (REFLECT. LE.O.)  REFLECT  =■  l.E-20 

LASER 

364 

IF  (L0s5.LT .0. ) LOSS  * 0. 

LASER 

365 

R 1 REFLECT/100. 

LASER 

366 

LOSS  * LOSS/100. 

LASER 

367 

IF  (GAMMA. GT.O.)  LOSS  * 0. 

LASER 

368 

IF  (OMEGA. LE.O.)  OMEGA  = AREA/CAVI TY»»2 

LASER 

369 

IF  (GAMMA. EQ.O.)  GAMMA  * (LOSS  - 0 .5* AlOG (R )) /LENGTH 

LASER 

370 

tCavity  * cavity/ (30. «length»gammA) 

LASER 

371 

PASS  * 100.»L05S 

LASER 

372 

OMEGA4P  * OMEGA/4. /PI 

LASER 

373 

c 

LASER 

374 

A 

J75 

c 

READ  experimental  electrical  and  CIRCUIT  PARAMETERS  — 

LASER 

376 

w Ait 

Jf  f 

c 

LASER 

378 

TR  a 0. 

LASER 

379 

TF  S Tc  = 10000. 

LASER 

380 

TFALL  a 1.0 

LASER 

381 

DO  517  1 = 1,21 

LASER 

382 

517 

T0 1 I ) = JB<I)  =»  0. 

LASER 

383 

units  = 1.0E-09 

LASER 

384 

JOE AM  = ENERGY  = 0. 

LASER 

385 

FACTOR  * 1.0 

LASER 

386 

su  = Du  ■ o. 

LASER 

387 

U*  * UB  * o. 

LASER 

388 

deposit  = o. 

LASER 

389 

c 

LASER 

390 

c 

LASER 

391 

REAo  (S.EBEaM) 

LASER 

392 

c 

LASER 

393 

c 

LASER 

394 

IF  (U0.GT.EMAX)  UB  * EMAX 

LASER 

395 

c 

FOR  THE  SUUaRE  WAVE  S(U)  = 1.  UA  < U < UB,  THE  AVERAGE 

ENERGY 

LASER 

396 

c 

UPLUS  * <U«>  IS  GIVEN  BY  — 

LASER 

397 

UPLUS  = IUA  . uB)/2. 

LASER 

398 

SMAx  * J0I1) 

LASER 

399 

IF  (SMAX.LT.O.)  GO  TO  519 

LASER 

400 

7 


NPTS  * 1 

laser 

401 

TO  * Tall) 

laser 

402 

00  515  I * 2*21 

LASER 

403 

T l * Tp ( 1 1 

LASER 

404 

IF  (Tl.LE.TO)  GO  TO  518 

LASER 

405 

NPTS  * NPTS* 1 

LASER 

406 

Si  * JB<1> 

LASER 

40  7 

IF  (SI.LT.O.I  GO  TO  519 

LASER 

408 

IF  (SI.6T.SHAX)  SMAX  * SI 

LASER 

409 

515 

TO  * T 1 

LASER 

410 

518 

INtRP  = NPTS.GT. 1 

LASER 

411 

c 

COMPUTE  NORMALIZED  E-BEAM  CURRENT  DENSITY  SHAPE  FUNCTION  — 

LASER 

412 

DO  521  I 3 1*NPTS 

LASER 

413 

521 

jB<]>  = JB<|)/SHAX 

LASER 

414 

GO  TO  520 

LASER 

415 

519 

INTRP  « .FALSE. 

LASER 

416 

c 

LASER 

417 

520 

KVOlT  = 0. 

LASER 

MB 

POlsCH  * 0. 

LASER 

419 

AREA  * OIST  = 1. 

LASER 

420 

INOUCT  * RESIST  a o. 

LASER 

421 

CAP AC  = 1*0 

laser 

422 

c 

LASER 

423 

c 

LASER 

424 

REAo  15.CIPCUIT) 

LASER 

425 

c 

LASER 

426 

c 

laser 

427 

volt  * iooo.*kvolt 

LASER 

428 

ELECT  = KVOLT. NE.O. 

LASER 

429 

IF  (DIST.EO.O.)  OIST  * 1.0 

LASER 

430 

c 

LASER 

431 

ELECT  a ELECT. AND. NK. NE.O 

laser 

432 

mE0  = ntype 

LASER 

433 

IF  (ELECT)  NEQ  = NE0«2 

laser 

4 34 

npi  = nTYPE* 1 

LASER 

435 

NP2  » NTYPE.2 

LASER 

436 

c 

LASER 

437 

c 

l*  w jl" 

c 

read  upoated  rates  for  all  processes  — 

LASER 

439 

c 

U W JL  H 

c 

laser 

441 

c 

READ  NUMERICAL  RATE  DATA  PROVIDED  AT  The  TIME  of  program  synthesis 

laser 

442 

c 

(STORED  ON  TAPE  NSCRTCH) . AND  (POSSIBLY)  MODIFIED  BY  INPUT  FROM 

LASER 

44  3 

c 

THE  SRaTES  ...  S CARD.  NOTE  THAT  CERTAIN  RATES  ARE  ABSENT  IF  THEY 

LASER 

444 

c 

Oio  NOT  APPEAR  AT  PROGRAM  SYNTHESIS.  THESE  RATES  ARE  NOT  ACCES- 

LASER 

445 

c 

SIBlE  BV  INPUT,  and  are  IGNORED  if  an  ATTEMPT  is  maoe  to  specify 

LASER 

446 

c 

them  on  the  srates  ...  s card,  however,  for  secondary  electron 

LASER 

44  7 

c 

COLLISIONS  (FOR  WHICH  RATES  ARE  NORMALlV  OBTAINED  BY  DEFAULT  TO 

LASER 

448 

c 

E-  KINETICS  CALCULATIONS).  FIXED  INPUT  VALUES  FOR  RATES  MAY  BE 

LASER 

449 

c 

ASSIGNED  BY  THE  SRaTES  ...  S CARD  IF  ThERE  IS  NO  ELECTRIC  FIELD 

LASER 

450 

c 

(I.E.*  EVCM  « o SPECIFIED  ON  ThE  FOREGOING  SCIHCUIT  ...  S CARD). 

LASER 

451 

c 

LASER 

452 

c 

LASER 

453 

REAo  (S.RATtS) 

LASER 

454 

c 

LASER 

455 

c 

LASER 

456 

REblNO  mtape 

LASER 

457 

t 


8 


nnnnn  n non 


STOP  a .FALSE. 

LASER 

458 

KO  a 24 

LASER 

459 

IF  (KOUNT. LE.O)  KOUNT  a KO 

LASER 

460 

IF  (K0UNT.GT.K0I  KOUNT  a KO 

laser 

461 

NSMP  a KO  - KOUNT 

LASER 

462 

IF  (NSKlP.LE.O  ) NSKIP  a 1 

LASER 

463 

ENCOOE  UO. 109, PAGE)  NSKIP 

LASER 

464 

L*LC»KaNaO 

LASER 

465 

illegal  • modify  ■ .false. 

LASER 

466 

71 

READ  (nSCRTCH)  lsum*  lsum,  label*  rate.  Fk.  rk.  rname.  comment 

LASER 

467 

IF  (EOF (NSCRTCH) ) 70,91 

laser 

468 

«>! 

NFLAG  a 1M 

LASER 

469 

test  a .FALSE. 

' 

LASER 

470 

K » K»1 

laser 

471 

DO  84  I ■ I.NTVPE 

LASER 

472 

NL  a NR  a 0 

LASER 

473 

DO  503  J * 1.5 

LASER 

474 

IF  (LABELU.l).EO.I)  NL  « NLM 

laser 

4 75 

503 

IF  (LABEL U. 21. EO. II  NR  a nR»1 

LASER 

476 

Nl  a NR-NL 

LASER 

477 

IF  (I.EO.I.AND.NL.EO.I.ANO.NR.eO.I)  Nl  a i 

LASER 

478 

04 

ntimeui  * Nl 

LASER 

479 

IHAgeM*  * RATE  ( 1 ) 

LASER 

480 

IMAGE «2>  * RATE  *2) 

LASER 

481 

DECODE  I 1 . 100. RATE (111  R1 

LASER 

482 

DECODE  1 1 • lOO, RATE (21 ) R2 

LASER 

483 

IF  (R2.E0.1HX)  IMAGE  12)  a 1H 

LASER 

484 

IF  (Rl.NE.lHV.AN0.R2.NE.lHV)  GO  TO  73 

LASER 

465 

N ■ N»1 

LASER 

486 

VSlGd'N)  a VStGl2.NI  a 0. 

LASER 

487 

LASER 

488 

COUNT  net  NUMBER  Of  electrons  IRHS-LHS)  — 

LASER 

489 

LASER 

490 

NEL(N)  ■ 0 

LASER 

491 

DO  92  M ■ 1.5 

LASER 

49  2 

IF  (LABEL  CM. 1 1 .E0.2)  NELCNi  a NEL(N|-1 

LASER 

493 

0? 

IF  (LABEL (M.2) .E0.2I  NEL IN)  a NEL<N)»1 

LASER 

494 

LASER 

495 

IF  (.NOT.ELECTI  GO  TO  74 

LASER 

496 

IF  (R1.E0.1HV)  INAGE  1 1 ) « 1H 

LASER 

497 

IF  (R2.EQ.1HV)  1MAGE12)  « 1H 

LASER 

498 

GO  TO  73 

laser 

499 

LASER 

500 

(IF  EVCN  • 0.  AND  IF  KF  OR  KR  ARE  NOT  SPECIFIED  FOR 

A SECONDARY 

LASER 

501 

electron  process,  it  is  assumed  by  THE  PROGRAM  THAT 

there  was  an 

LASER 

502 

IMPLIED  INPUT  OF  KF  « 0 AND/OR  KR  a 0 FOR  THAT  PROCESS.) 

LASER 

503 

LASER 

504 

74 

IF  (Rl.NE.lHV)  GO  TO  76 

LASER 

505 

IF  (KF(K>.eo.C>  KF(K)  * 0. 

LASER 

506 

VSIGM.N)  a KF  <K  ) 

LASER 

507 

76 

IF  (R2.NE.lHV)  GO  TO  73 

LASER 

508 

IF  (KRIK).EO.C)  KR(k>  “ 0. 

LASER 

509 

VSIG<2.N)  a KR(K> 

LASER 

510 

73 

IF  (KF(K).EO.CI  GO  TO  67 

LASER 

5)1 

IF  ( IMAGE  Ul.NE.lM  I GO  TO  67 

LASER 

512 

KFIK)  * C 

LASER 

513 

L ■ LM 

LASER 

514 

9 


J * IHF 

LASER 

515 

NFLAG  * 2H** 

laser 

516 

test  ■ Illegal  * .true. 

LASER 

5(7 

ENCOOE  ( 10 005 'LINE (Lit  J,  K 

LASER 

518 

STOP  * .TRUE. 

LASER 

519 

67 

IE  ikR(K).Eq.C)  GO  TO  60 

LASER 

520 

IE  ( IMAGE (2) ,NE . 1H  > GO  TO  68 

LASER 

521 

KR(K>  » C 

LASER 

522 

L * L»1 

LASER 

523 

J « 1HR 

LASER 

526 

NFLAG  * 2H*« 

LASER 

525 

test  * illegal  * .true. 

LASER 

526 

encode  (10,305«l1NE(L> > J*  K 

LASER 

527 

STOP  * .TRUE. 

LASER 

528 

c 

LASER 

529 

c 

at  this  point,  with  the  exception  of  changes 

ENCOUNTERED  ANO  PER- 

LASER 

530 

c 

PERMITTED  by  input,  vectors  kf  ANO  KR  CONTAIN  all  c-values.  ANO 

LASER 

531 

c 

LiNEIL)  contains  names  of  rates  inaccessible 

BY  INPUT  FOR  THE  PRO- 

LASER 

532 

c 

GPAm  EXECUTION. 

LASER 

533 

c 

LASER 

536 

60 

IF  (KF(K).EQ.C)  GO  to  63 

LASER 

535 

ENCODE  (50, 323, COMMENT) 

LASER 

536 

MOOIFY  * .TRUE. 

LASER 

537 

IF  (.NOT. TEST)  NFLAG  ■ 2H  * 

LASER 

538 

ENCODE  (10,301 .RATE ( 1 ) ) KF (X) 

LASER 

539 

IF  (KF(K).EQ.O.)  RATEd)  « 1H 

LASER 

560 

GO  TO  6* 

LASER 

561 

63 

Kf(K)  * FK 

LASER 

562 

66 

IF  (KR(K) .EO.C)  GO  TO  69 

LASER 

563 

ENCODE  (SO, 323, COMMENT) 

LASER 

566 

MOOIFY  « .TRUE. 

LASER 

565 

IF  (.NOT. TEST)  NFLAG  * 2H  * 

LASER 

566 

ENCOOE  (10.301, RATe(2l ) KR(K) 

LASER 

567 

IF  (KR(K> .EO.O.)  RATEI2)  * 1H 

LASER 

568 

GO  TO  10 

LASER 

569 

69 

kR(K)  b RK 

LASER 

550 

10 

WRITE  (MTAPE)  (NTIME(I),  I » l.NTYPE).  RATE, 

rname 

LASER 

551 

IF  ( .NOT .OUT (10)1  GO  TO  71 

LASER 

552 

IF  (LC.NE.O)  GO  TO  2 

LASER 

553 

IF  (K.EO. 1)  GO  TO  03 

LASER 

556 

WRITE  (6,102) 

LASER 

555 

IF  (MODIFY)  WRITE  (6,123) 

LASER 

556 

IF  (ILLEGAL)  WRITE  (6,126) 

LASER 

557 

03 

ILLEGAL  ■ MOOIFY  ■ .FALSE. 

LASER 

550 

WRITE  (6, PAGE) 

LASER 

559 

WRITE  (6,103)  GENDaTE 

LASER 

560 

lF  (ELECT)  WRITE  (6.219) 

LASER 

561 

1 

WRITE  (6.105) 

LASER 

562 

1 

2 

LC  * LC*  1 

LASER 

563 

IF  (LC.EO.KOUNT)  LC  * 0 

LASER 

566 

s 

WHITE  (6,106)  NFLAG.  K,  (RNAMEIJ),  J ■ 1,5). 

Rate,  comment 

LASER 

565 

GO  TO  71 

LASER 

566 

c 

LASER 

567 

I 

70 

IF  ( .NOT .OUT (10))  GO  TO  93 

LASER 

560 

WRITE  (6.102) 

LASER 

569 

IF  (MODIFY)  WRITE  (6.123) 

LASER 

570 

. 

IF  (ILLEGAL)  WRITE  (6,126) 

LASER 

571 

|r„ 

tr  • 

10 

1 

93 

E««0RI7>  * STOP 

LASER 

572 

c 

LASER 

573 

c 

begin  generation  of  error  diagnostics  — 

LASER 

575 

c 

LASER 

577 

LINES  * 6 

LASER 

578 

NRlTE  (6.212) 

LASER 

579 

c 

LASER 

580 

IF  t.N0T.ERR0R(l>>  GO  TO  51* 

LASER 

581 

WORD  ■ WARN 

LASER 

582 

IF  (FATAL(1>>  WORD  * 6HFATAL* 

LASER 

58  3 

WRITE  (6,201)  WORD 

LASER 

58* 

lines  » LINES ,5 

LASER 

585 

c 

LASER 

586 

51* 

IF  ( .NOT .ERROR ( 8 ) > GO  TO  516 

LASER 

587 

WORD  ■ WARN 

LASER 

588 

IF  (FATAL (8) ) WORD  « 6MFATAL* 

LASER 

589 

WRITE  16,206)  WORO.  MAXGAS,  MaXK.  MAXNK 

LASER 

590 

LINES  ■ LINES* 5 

LASER 

591 

c 

LASER 

592 

516 

IF  (. NOT. ERROR (9) ) GO  TO  525 

LASER 

593 

WORO  ■ WARN 

LASER 

59* 

IF  (FATAL (9) I WORO  * 6HF AT AL  * 

LASER 

595 

WRITE  (6,209)  WORO,  NKNAX,  KHAX,  NHAX,  NK,  KTYPE,  NTVPE 

LASER 

596 

lines  * lines.s 

LASER 

597 

c 

LASER 

598 

525 

IF  (. NOT. ERROR! 7) ) GO  TO  75 

LASER 

599 

WORD  * WARN 

LASER 

600 

IF  (FATAL (7) ) WORD  ■ 6HFATAL* 

LASER 

601 

WRITE  (6,207)  WORD 

LASER 

602 

LINES  » LINES  • 5 « (L»7)/6 

LASER 

603 

WRITE  (6,106)  (LINE ( I ) * 1 * I,L> 

LASER 

60* 

c 

LASER 

60S 

c 

LASER 

607 

75 

DO  5 I * 1 ,NTYPE 

LASER 

608 

MASS ( I ) « 0. 

LASER 

609 

5 

E<I)  = NO(I)  * C 

LASER 

610 

c 

LASER 

611 

c 

rea0  input  data:  names,  concentrations,  energies,  masses  — 

LASER 

612 

c 

LASER 

613 

L * NGAS  = 0 

LASER 

61* 

PRESS  * 0. 

LASER 

615 

IONIZE  « 1.0E-12 

LASER 

616 

20 

REAo  (5,101)  TYPE,  HATE,  DUMMY.  DUMMY,  NPLOT 

LASER 

617 

IF  (EOF (5) ) 11,31 

LASER 

618 

31 

BACKSPACE  5 

LASER 

619 

REAo  (5,H2>  PO,  EO,  MOLWT 

LASER 

620 

IF  (TYPE.NE.3HR AO)  GO  TO  3* 

LASER 

621 

c 

SPECIES  *1*  CORRESPONDS  TO  RADIATION  — 

LASER 

622 

NO(l)  « PO 

LASER 

623 

GO  TO  20 

LASER 

62* 

3* 

IF  (TYPE.NE.*HE(->)  GO  TO  39 

LASER 

625 

c 

SPECIES  *2*  CORRESPONDS  TO  ELECTRONS  — 

LASER 

626 

i 

NOI2)  > PO 

LASER 

627 

PLOTS(2)  * NPLOT. EO.*MPLOT 

LASER 

628 

i 

; 

} 

1 1 

1 1 

i 

— "T 

— r 

— 

* 

0°  TO  20 

If  (TYpE.N£.6HI0Nl2E>  GO  To  81 
IONIZE  * PO 

PL0TS<2>  a NPLOT.EQ.AHPLOT 

GO  to  20 

PRESS  * PRESS  ♦ PO 
if  (PO.LE.O.)  60  TO  58 
NO*S  s NGAS ♦ 1 
NA«E(NGAS)  = TYPE 
MASS(NGAS)  = molwt 

fUngasi  * po 

t>0  8 I « 3*NTYPE 
If  (TYPE. EO. GASII) ) GO  TO  9 
CONTINUE 
L * L»1 

lIneili  * type 

E««0R(2)  • .TRUE. 

GO  TO  20 

If  (RATE  ( 1 ) .NE . lH  ) NO(I>  * P0*0.96SE  19/TMOL 
If  (RATE (2) .NE . 1H  ) E(I>  » EO 
PLOTS! I)  ■ NPLOT.EQ.AHPLOT 
GO  TO  20 


If  I.N0T.ERR0R(2) ) GO  TO  526 
MORO  * NARN 

IF  (f ATAL (2) > WORD  * 6HFATAL* 
WRITE  (6,202)  WORD 
LINES  * LINES  ♦ 5 « (L^l/e 
WRITE  (6.108)  (LINE ( 1 ) t I = l.L) 


DO  6 I ■ l.NGAS 
F I * I ) * FI  (D/PRESS 
If  (PTOT.EQ.O.)  GO  TO  27 
D®  28  I * J.NTVPE 

If  (NO(I).NE.C)  NO(I)  = NO(I)»PTOT/PRESS 
GO  TO  26 
pTOT  * PRESS 

NMOl  » NTOT  * 0.96SE  19*PT0T/TM0L 
If  (NO (2) .LE.O. ) NO  12)  * I0NIZE»NM0L 


CHECK  initialization  of  population  DENSITIES 
L ■ 0 

00  12  I » l.NTYPE 
If  (NO(I).NE.C)  go  TO  12 
ERROR c 3)  * .TRUE. 

L * L»1 

LINE1L)  ■ GAS ( I ) 

NO ( I ) = 0. 

DNYdTN(I.I)  » NO  1 1 ) 


If  (.NOT. ERROR (3))  GO  TO  527 
WORD  * WARN 

IF  (FAT AL ( 3) ) WORO  * GHFATAL* 
WRITE  (6.203)  WORD 
LINES  « LINES  • 5 . (L‘T)/8 
WRITE  (6.108)  (LIN£(1).  I * l.L) 
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LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 
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laser 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 
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r 


f 


[ 


I 


j 

l 


c 

CHECK  INITIALIZATION  or  ENERGIES  — 

LASER 

686 

527 

L • 0 

LASER 

687 

E<1>  * E (2)  * o. 

LASER 

688 

00  15  I « 3.NTYPE 

LASER 

689 

If  (E(Il.NE.C)  GO  TO  15 

LASER 

690 

Elll  * 0. 

LASER 

691 

ERROR  191  » .TRUE* 

LASER 

692 

L » L*l 

laser 

693 

LlNEU-1  « GAS  ( I ) 

LASER 

69A 

15 

continue 

LASER 

695 

c 

LASER 

696 

If  (. not. ERROR ( 4) ) GO  TO  528 

LASER 

697 

WORD  * WARN 

laser 

696 

ir  (fatal (4) > woro  » 6hfatal« 

LASER 

699 

WRITE  (6.204)  WORO 

LASER 

TOO 

LINES  « LINES  * 5 ♦ <L»Tl/8 

LASER 

701 

WRITE  (6.108)  (L INE ( I > * I « l.L) 

LASER 

702 

c 

LASER 

703 

528 

IF  (.NOT. ELECT)  GO  TO  80 

LASER 

704 

c 

LASER 

705 

f 06 

c 

LASER 

707 

c 

IF  THE  BOLTZMANN  ANALYSIS  BELOW  DOES  NOT  CONVERGE*  CONTROL  RETURNS 

laser 

708 

c 

TO  THIS  POINT  TO  EXPAND  THE  ELECTRON  ENERGY  RANGE  — 

LASER 

709 

c 

LASER 

710 

T*  * 0. 

LASER 

71 1 

IF  (.NOT .REPEAT)  GO  TO  79 

LASER 

712 

95 

IF  (EMAX.GE.5.)  GO  TO  87 

LASER 

713 

EMAx  * EMAX»2. 

LASER 

71 A 

IF  (EMAX.GT.5.)  ENAX  * 5. 

LASER 

715 

GO  TO  89 

LASER 

716 

87 

EHAx  ■ EMAX  ♦ s. 

LASER 

717 

89 

IF  (EMAX.LE.ELIMIT)  GO  TO  79 

LASER 

718 

WRITE  (6,220)  EMAX,  ELIMIT 

LASER 

719 

GO  TO  97 

LASER 

720 

79 

OE  s emax/mesh 

LASER 

721 

eo  * 0. 

LASER 

722 

N*  « ua/oe  ♦ 1 

LASER 

723 

nb  * UB/OE  ♦ 1 

LASER 

72* 

IF  ( (UA.NE.UB) .AND. (NA.EO.NB) ) NB  ■ NA.l 

LASER 

725 

UA  « OE* (NA-1 ) 

LASER 

726 

UB  » 0E*IN8-1) 

LASER 

727 

OU  s UB-UA 

LASER 

728 

su  3 0. 

LASER 

729 

IF  (OU.GT.O.)  SU  « l./OU 

LASER 

730 

DO  29  I « l.MESHPl 

LASER 

731 

OMOMd.l)  * OMOMII.2)  3 0. 

LASER 

732 

EV(I>  * EO 

LASER 

733 

s«l)  30. 

LASER 

734 

IF  (I.lT.NA.OR.I.GT.NB)  GO  TO  29 

LASER 

735 

Sdl  3 su 

LASER 

736 

29 

EO  3 EO  • OE 

LASER 

737 

c 

LASER 

738 

c 

sd)  IS  THE  NORMALIZED  SOURCE  FUNCTION  FOR  SECONOARY  ELECTRON 

LASER 

739 

c 

CREATION!  INTIDU  S|U>)  3 1. 

LASER 

740 

c 

LASER 

741 

REWIND  NSCHTCH 

LASER 

742 

U,  \Jk 


I 
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re*o  «NSC«TCH)  title 
read  (nschtchi 
read  (nschtchi 
read  (nscbtch) 


If  THE  SYNTHESIZED  PROGRAM  WAS  CONSTRUCTED  TO  DEFAULT  TO  ELECTRON 
KINETICS  CALCULATIONS  AS  The  source  for  SECONOARy  ELECTRON  COLLI- 
SION RATESt  ANO  If  THE  EXPERIMENTAL  SITUATION  CORRESPONDS  TO  AN 
ELECTRIC  DISCHARGE  IEVCM  * 0).  THE  ELECTRON  cross  section  file  is 
PROCESSED  — 

CALL  SECONO  ( to  > 

IN  « NTYPE 
K * N * 0 
J * l 

STOP  3 .FALSE. 

14  READ  (NSCHTCHI  LHS.  RHSt  LABEL.  RATE*  FKt  RK,  RNAME 
IF  (EOF 1NSCRTCH) I 60*505 
505  DCCOOE  ( 1 * lOO. RATE (III  R1 
DECODE  11*100. RATE (2) I R2 
IF  (Rl.NE.lHV.AN0.R2.NE.lHV)  GO  TO  14 
N * N*1 

ENCODE  (40*101. PROCESS!!. N| ) (RNAMe(L).  L a 1*4) 


PROCESS  THE  INELASTIC  ELECTRON  CROSS  SECTION  FILE  — 


CALL  PLASMA  (NDATA,  MGRIOM*  mesh*  LHS*  RHS*  RNAME*  EV*  F,  G« 

1 0(1, N).  UO,  UM*  IN*  GAS*  MISSING*  REJECT,  OUTSIDE*  I DEG*  OUT(0)I 

test  * missing. or. reject. or. outside 

if  (.NOT. TEST)  GO  TO  32 
STOP  * STOP. OR. TEST 
K ■ K»1 

IF  (J.GT.231)  GO  TO  33 
ENCODE  <50* 322*L INE ( J)  I 
J * J.S 

ENCOOE  <50. 129*L INE ( J) I K,  (PROCESS (L*N) , L * 1*4) 

J • J»5 

IF  (MISSING)  ENCODE  (50, 1 15. L INE ( J) ) 

IF  (MISSING)  J = J»5 

IF  (OUTSIDE)  ENCOOE  (50* 1 16.LINE ( J> ) EMAX 
IF  (OUTSIDE)  J * J«5 

IF  (REJECT)  ENCODE  (SO* 1 1 7.L INE ( J) ) EMAX 

IF  (REJECT)  J * J*5 

IF  ( J.LE.225)  GO  TO  33 

ENCODE  (100.1 28 *LINE(J) I 

J ■ J*10 

GO  TO  33 

32  00  24  L ■ l.MCSHPl 

24  0 (L ,N)  ■ EV(L)«0IL«N) 

33  U IN)  a 0. 

Ll  • LEVI (N) 
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LASER 
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7s  l 

LASER 

752 
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755 
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756 
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757 
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760 
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763 
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765 
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767 
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768 
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769 

LASER 

770 
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771 
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773 
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774 
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776 
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777 
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778 
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779 
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780 
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781 

LASER 

782 
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783 
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785 
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797 

LASER 

798 

LASER 
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I 
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IF  (Ll.EO.O)  GO  TO  1 9 

LASER 

800 

l)(N)  » - E<L1> 

LASER 

801 

GO  TO  13 

LASER 

802 

I*» 

00  21  L * 1»5 

LASER 

80  3 

I « LABEL «L,1) 

LASER 

806 

I F (I.EO.OI  GO  TO  13 

LASER 

805 

21 

U<N)  a 0 (N) -E ( I > 

LASER 

806 

1 3 

L 2 » LEV2«N) 

LASER 

807 

IF  (L2.EO.O)  GO  TO  23 

LASER 

808 

U<N)  * U(N)  ♦ E (L2) 

LASER 

809 

GO  TO  38 

LASER 

810 

23 

DO  22  L * 1*5 

LASER 

811 

I * LAbEL(L,2) 

LASER 

812 

I F (I.eO.O)  GO  TO  38 

LASER 

813 

22 

U<N)  > U <N) *E ( I > 

LASER 

816 

38 

continue 

LASER 

815 

G«  TO  1 A 

LASER 

816 

LASER 

817 

f>0 

ERROR »5»  * STOP 

LASER 

818 

FE  a FATAL (5) . AND. ERROR <S) 

laser 

819 

LASER 

820 

PROCESS  the  MOMENTUM  transfer  cross  SECTIONS 

• • 

LASER 

822 

» *a 

LASER 

826 

IN  a NTYPE 

LASER 

825 

TWOm  a 2./1837. 

LASER 

826 

STOP  a .FALSE. 

LASER 

827 

DO  17  I « l.NGAS 

LASER 

828 

IF  (FKII.EQ.O.I  GO  TO  17 

LASER 

829 

FRAcT  a F I ( I ) 

LASER 

830 

MISSING  « REJECT  a OUTSIDE  a .FALSE. 

LASER 

831 

ENCOOE  (60.106.RNAME)  NAME! I) 

LASER 

832 

LASER 

833 

ENCODE  (50*120, IMAGE)  NAME ( I ) * NAME ( I ) 

LASER 

836 

OECOOE  (50*100. IMAGE)  (MOM(L),  L a 1,50) 

LASER 

835 

call  demode  (gas*  mom,  lhs,  rhs*  label. 

OUM, 

10*  IN,  SO) 

LASER 

836 

laser 

837 

call  plasma  indata,  mgrid*i*  mesh*  lhs. 

RHS* 

RNAMEt  EVt  Ft  G*  QHt 

LASER 

838 

1 

UO,  UM,  IN,  gas,  missing,  reject,  OUTSIDE, 

IDEG,  OUT (8)) 

LASER 

839 

LASER 

860 

TEST  a MISSING. OR. REJECT. OR. OUTSIOE. OR. (MASS(I) .LE.O.) .OR. 

LASER 

861 

<UM.LT.EMAX> 

LASER 

862 

IF  (.NOT. TEST)  GO  To  36 

LASER 

863 

K ■ K»1 

LASER 

866 

IF  (J.GT.221I  GO  TO  17 

LASER 

865 

ENCODE  *50,322*LlNE ( J) ) 

LASER 

866 

J ■ J*5 

LASER 

867 

ENCODE  <50,129, LlNE(J) 1 K,  (RNAME(L), 

L a 

1,6) 

LASER 

868 

J ■ J*S 

LASER 

8<>9 

|F  (MISSING)  ENCOOE  (SO , 115, L INE ( J) ) 

LASER 

850 

IF  (MISSING)  J ■ J*5 

LASER 

851 

IF  (OUTSIDE)  ENCOOE  (50, 1 16. LINE ( J) ) 

EMAX 

laser 

852 

IF  (OUTSIDE)  J ■ J*5 

LASER 

853 

IF  (REJECT)  ENCODE  (50. 1 1 7,L INE 1 J> ) 

EMAX 

LASER 

856 

IF  (REJECT)  J a J«5 

LASER 

855 

IF  (UM.LT.EMAXI  ENCODE  (SO, 1 18*L INE ( J) ) EMAX 

LASER 

856 

15 


c 

IF  (UM.LT.EMAX)  J * J*S 

IF  (MASS(I).LE.O.)  ENCODE  (50.H9,LlNE(J)) 

IF  (MASS(I).LE.O.)  J * J*5 

IF  (J.LE.22S)  GO  TO  IT 

ENCODE  (lOOil 28 (LINE (J) ) 

J ■ J»10 

00  TO  IT 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

857 

858 

859 

860 
861 
862 

863 

864 

c 

c 

CONSTRUCT  TWO  MOMENTUM  TRANSFER  FUNCTIONS  WHICH 

OCCUR  IN  The 

LASER 

866 

c 

BOLTZMANN  EQUATION  — 

LASER 
i icro 

8f>7 

840 

c 

LASER 

869 

36 

DO  44  L ■ 1.MESHP1 

LASER 

870 

F 0 > FRACTION (L» 

LASER 

871 

QMOm (L • 1 > • QMOM (L , 1 ) ♦ FO 

LASER 

872 

44 

0M0MIL.2)  ■ OMOMIL.2)  ♦ FQ/NASS ( I • 

LASER 

873 

c 

LASER 

874 

IT 

STOP  * STOP. OR. TEST 

LASER 

875 

c 

LASER 

876 

ERROR I6>  ■ STOP 

LASER 

877 

FE  ■ FE.OR. (FATAL (6). AND. ERROR<6>> 

LASER 

878 

ERRORS  * ERROR <5» .OR. ERROR (6| 

LASER 

879 

c 

LASER 

880 

c 

generate  additional  warning  diagnostics  for  e- 

data 

LASER 

882 

c 

c 

LASER 

884 

IF  (.Not. ERRORS)  Go  TO  98 

LASER 

885 

WORD  * WARN 

LASER 

886 

IF  (FE)  WORD  * 6HFATAL  * 

LASER 

887 

J ■ J-l 

laser 

888 

LINES  * LINES  ♦ 5 ♦ (J»4)/5 

LASER 

889 

IF  (REPEAT. OR. OUT (8). OR. OUT (9) .OR. (LINES.GT.S5) ) 

LASER 

890 

1 

1 WHITE  (6*212) 

LASER 

891 

LINES  * 6 

LASER 

892 

WRITE  (6.205)  WORD 

LASER 

893 

WRITE  (6.206)  (LINE (L ) . L « l.J) 

LASER 

894 

c 

LASER 

895 

98 

FAlAL(lO)  * .TRUE. 

LASER 

896 

DO  46  L ■ l.MESHPl 

LASER 

897 

X * EV(L) 

LASER 

898 

xSQ  . twom«x»x 

LASER 

899 

ERROR (10)  * OMOM(L.l) .LE.O. 

LASER 

900 

IF  (ERROR! 10) ) GO  TO  47 

LASER 

901 

A<L,1)  * X/NMOL/OMOM (L . 1 ) 

LASER 

902 

46 

A<L,2>  » XSQ»NM0L*QH0M(L.2) 

LASER 

903 

c 

LASER 

904 

XUAr  * DE/2. 

LASER 

905 

DO  41  I * 1 .MESH 

LASER 

906 

C*Ll  INTERP  (2,  XBAR.  OMOM(l.l).  Ev.  A(l.l),  1, 

MESHPI ) 

LASER 

907 

CALL  InTERP  (2.  XBaR.  QMOM (1,2),  Ev.  A(l,2),  1, 

MESHPI) 

LASER 

908 

41 

XBAr  > XBAR  . OE 

LASER 

909 

qMOM(MeSHPI.I)  a QMOM (MESH. 1) 

LASER 

910 

QMOm (MeShPI ,2)  * QMOM (MESH. 2) 

LASER 

911 

c 

LASER 

912 

47 

WORD  a WARN 

LASER 

913 

16 


ooo  oooo  u u u uuu 


I F (FATAL <10)1  WORO  * 6HFATALI 
IF  ( ERROR  < 10) ) WRITE  (6.2101  WORD 
C 

C*LL  SECONO  (Tl) 

TA  a TA  ♦ <T1  - TO  1 
C 

KTE  « KB*TE 
EXPON  ■ EXP(-0E/KTE» 

fb  ■ 1 . 

00  37  I « 1.MESHP1 

rdi  « fb 

37  FB  x FB*EXPON 

PROHIBIT  further  plots  or  tabulations  of  e-  cross  section  data  — 


OUT  IS)  * OUT (9)  a .FALSE. 


test  FO P error  CONDITIONS  — 

BO  FE  a ERRORS  « .FALSE. 

DO  94  I * 1 .10 
ERRORS  ■ ERRORS. OR. ERROR* I) 

FE  * FE. OR. (ERROR (I). AND. FATAL!  I)  I 
RESET  ERROR  FLAG  — 

94  ERROR* 1 1 * .FALSE. 

IF  (FE)  WRITE  (6.3001 
IF  (FE)  GO  TO  99 

IF  IREPEAT)  GO  TO  90 
?F  (SU.EO.O.I  GO  TO  *5 

PLOT  OF  NORMALIZED  EXTERNAL  IONIZATION  SOURCE  FUNCTION  — 

WRITE  (6.130)  UPLUS 
yO ( i ) * 07 ( i ) * o. 

CALL  PLOT  (|,  MESH. 1 • 1.  S,  YO.  OY.  EV,  0..  0.,  .TRUE.,  .TRUE., 

i .true.,  .true.*  .true.,  title.  i»  o> 
white  (6, 1 3 | ) 
c 

45  MU  a 1000. 

TBOtTZ  * NBOLTZ  * 0 
yMAx  a 0.9999»KVOLT 
nO(npI)  ■ capac*yolt 
NO(NP2)  * o. 

RO  = OlST/AREA/*EE«MU) 

IF  (INDUCT. EO.O.)  NOINP2)  = -VOLT/ (RESIST  ♦ RD) 

0nyotn*npi. i)  x nO(NPI) 

ONYDTN(NP2*l)  X NO(NP2) 

HHIn  * TOUT/IOOO. 

HMAx  * TOUT 
H « HMIN 

DELTA  x eta 
JSTaRT  ■ 0 
T x TP  « NP  x 0 
TT  a TOUT 
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914 

915 

916 

917 
9lfl 

919 

920 

921 

922 

923 

924 

925 

926 

927 
9?8 

929 

930 

931 

932 

933 


936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 
94  7 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 
96  7 

968 

969 

970 
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ENCODE  1 60 » 322 «K APT  ION) 

LASER 

971 

LASER 

1 kQFO 

972 

Q71 

integrate  eouations  from  t • o to  t * tpulse  — 

LASER 

976 

1 AQFD 

Q7C 

LASER 

976 

30 

£N0  > nf.eo.limit 

LASER 

977 

HOuT  ■ TOUT  - TT 

laser 

978 

IF  iH.LT.HOUTi  GO  TO  18 

LASER 

979 

LASER 

980 

BEFORE  INTEGRATING  FROM  T * (T  . H) , WHICH  WILL  PASS  THE  CYCLE 

LASER 

981 

TIME.  WE  PAUSE  TO  GENERATE  OUTPUT  EXTRAPOLATED  TO  TIME  NP«T0UT  — 

LASER 

982 

LASER 

983 

DO  16  I b 1,9 

LASER 

986 

OUT  III  « .FALSE. 

laser 

985 

IF  (IOII).EO.O)  GO  TO  16 

LASER 

986 

0UTI1)  * NP.EQ.lOtl)*!NP/10CI>> 

LASER 

987 

16 

CONTINUE 

LASER 

988 

NP  b NP*1 

LASER 

989 

TP  ■ T ♦ HOUT 

LASER 

990 

timeinp)  b tp/unit 

LASER 

991 

IBEaMINP)  b JBEaM«ShAPE<TPj 

LASER 

992 

ip  (LIMIT. NE.O)  ENCODE  (60. 121 .KAPTlON)  TP 

LASER 

993 

LASER 

996 

calculate  extrapolated  values  of  The  population  densities  — 

LASER 

99S 

LASER 

996 

$H  B HOUT/H 

LASER 

997 

SJ  * 1. 

LASER 

998 

jPl  B jSTART ♦ 1 

LASER 

999 

DO  25  I • I.NP2 

LASER 

1000 

25 

pOPdJ  ■ o. 

LASER 

1001 

0«  65  J ■ 1.JP1 

LASER 

1002 

0G  66  I * I.NP2 

LASER 

1003 

66 

POP ( J ) b POP ( J ) . DNYDTN(1.J»»SJ 

laser 

1006 

65 

SJ  b Sj*SH 

LASER 

1005 

nE  b pop (2» 

LASER 

1006 

LASER 

1007 

ELECTRON  KINETICS  ANALYSIS 

laser 

1009 
l q i n 

LASER 

1011 

if  (.NOT.ELECTl  GO  TO  68 

LASER 

1012 

LASER 

1013 

C*Ll  *0N0T»  TO  DETERMINE  SO  ANO  SB  PRIOR  TO  CALLING  THE  BOLTZMANN 

LASER 

1016 

ANALYSIS.  THE  ELECTRON  SOURCE  FUNCTION  IS!  SEXT(U1  » so»oelta(ui 

LASER 

1015 

♦ SB*S(U>. 

LASER 

1016 

LASER 

1017 

call  OnOT  (NEO.  TP.  POP,  NDOTl 

LASER 

1018 

IF  (DU.EQ.O . ) so  > SO  * SB 

LASER 

1019 

I F (OU.EO.O.)  SB  ■ o. 

LASER 

1020 

LASER 

1021 

CHARGE  * POP(NPl) 

LASER 

1022 

CURRENT  * “POP (NP2) 

LASER 

1023 

RO  = OlST/AREA/(EE*MU) 

LASER 

1026 

IF  (NE.GT.O.)  RD  ■ RD/NE 

LASER 

1025 

VOLT  * CURRENT*RD 

LASER 

1026 

ITEr  ■ itmax 

LASER 

1027 

18 


n 

■ 

IF  (VOlT.EQ.O.)  ITER  « 0 

LASER 

1028 

even  * absivolt/disti 

LASER 

1029 

esq  = evch*evch 

LASER 

1030 

ONEdT  * NOOTI2I 

LASER 

1031 

C 

LASER 

1032 

NO(jT  (NP»  1 *NP1 ) a VC  ■ CHARGE/CAPAC/IOOO. 

LASER 

1033 

NOuT(NP.2.NP1|  a KvOLT  a VOLT/IOOO. 

LASER 

103* 

NOuT(NP.1*NP2)  « VR  « CURReNT*RESIST/IOOO. 

LASER 

1035 

N0UT(NP.2»NP2)  a LOIOT  a VC  - VR  - KVOLT 

LASER 

1036 

C 

LASER 

1037 

CALL  LEVELS  INI.  N2»  POP1 

laser 

1038 

c 

LASER 

1039 

IF  (NP.EO.l)  GO  TO  90 

LASER 

10*0 

DP  * NE#ELASTIC  • EE*(UBAR«ONEOT  - NE*MU»ESQ  - UPLUS*SB) 

LASER 

1061 

DEPOSIT  * ISEAMCNP)»OVOK 

LASER 

10*2 

pOISCH  ■ NE«EE»HU»ESO 

LASER 

10*3 

pCOLL  * o. 

LASER 

10** 

DO  52*  J * liNK 

LASER 

10*5 

IF  (NEL<J>*GE.0>  GO  TO  530 

LASER 

10*6 

PWR  « Nl (J)*POWER(J) 

laser 

10*7 

GO  TO  52* 

LASER 

10*8 

530  PVR  « EE*0(J)»(NMJ»*VSIGI1*J)  - N2 ( J) aVSlGI 2. J) ) 

LASER 

10*9 

52*  PCOLL  = PCOLL  ♦ PVR 

LASER 

1050 

OP  « DP  ♦ ME ‘PCOLL 

LASER 

1051 

BEFORE  ■ IOO.»DP/<POISCH  ♦ OEPOSIT) 

LASER 

1052 

c 

LASER 

1053 

90  call  SECOND  < TO  > 

LASER 

105* 

c 

LASER 

LASER 

1055 

1 056 

c 

c 

LASER 

1057 

CALL  BoLTZ  (MGR  10*1.  HESM»  NK,  name.  Fla  NGAS.  NMOL.  TMOL . ITER. 

LASER 

1058 

1 TM tx . EPS.  KAPT ION.  TOOAV . OUT,  EVCM.  NE,  PROCESS.  U.  Nl.  N2, 

LASER 

1059 

2 NEL»  S*  SB,  50,  EV,  Q,  OMOM.  F.  6,  A,  B,  VSlG.  POWER.  PCOLL. 

LASER 

1060 

3 POISCH.  OEPOSIT.  OEOT,  ELASTIC.  ONEDT.  OLNEQT . IONIZe.  ATTACH, 

laser 

1061 

* VO,  Ml).  0.  EK.  AMPS.  UBAR,  T£.  CONVRGE.  PERCENT) 

LASER 

1062 

c 

LASER 

LASER 

1063 

1 06A 

c 

c 

LASER 

1065 

E<2)  ■ UB*R 

LASER 

1066 

CALL  SECONO  mi 

LASER 

1067 

TBOLTZ  « TBOLTZ  • < T 1 - TO) 

LASER 

1068 

NBOlTZ  ■ NBOLTZ  • 1 

LASER 

1069 

c 

LASER 

1070 

IF  MTER.LE.O)  percent  a 0. 

LASER 

1071 

reject  » <.NOT. CONVRGE). OR. (PERCENT. GT.PCT) 

LASER 

1072 

REPEAT  a REJECT. AND. EXPAND 

LASER 

1073 

| 

IF  (REPEAT ) GO  TO  95 

LASER 

107* 

IF  (REJECT)  GO  TO  99 

LASER 

1075 

c 

LASER 

1076 

c 

OBTAIN  electron  PARAMETERS,  NORMALIZED  without  POPULATION  density* 

laser 

1077 

I 

if  (NE .NE «0. ) ELASTIC  a ELASTlC/NE 

LASER 

1078 

1 

00  523  J • I .NK 

LASER 

1079 

l 

IF  (NEL(J> .GE.O)  GO  TO  523 

laser 

1080 

j 

IF  (Nl(J).NE.O.)  POVER(J)  a POWER* J)/N1 (J) 

LASER 

1081 

523  IF  (NE.NE.O.)  POWERU)  = POVER(J)/NE 

LASER 

1082 

4 

c 

LASER 

L ASE° 

1053 

1 0B4 

I 

g.V  * 1 

c 

19 

c ----- ] 


n n n n n o o n o o o o 


THE  RATES  PRODUCED  BY  SUBROUTINE  RATES  HERE  ARE  USEO  FOR  OUTPUT 
information  only  — 


48  CALL  DNDT  (NEQ.  TP.  POP,  NDOTI 


<NOtE t DO  NOT  INTERCHANGE  POP  ANO  NO.) 

RD  x OlST/AREA/CEE*MU) 

IF  (NE.GT.O.)  RO  = RO/NE 
CONOINP.l)  * SIGMA  * EE*MU*NE 
C0N0(NP,2>  * RO 
jSUs  ■ EE*NE»VD 
ISUS(NP.I)  * S I GMA*E VCM 
ISOs (NP.2)  x • NDOT (NP2 ) /AREA 

Ell)  x HNU 

cavity  photon  density  — 

PHOTON  » POPI1) 

ONPhOT  » NOOTd) 

eff ect ive  photon  oensity  in  medium  — 

NOOT(l)  * (CAVITY/LENGTH)  »NOOTd) 
pOPd)  « «CAVITY/LENGTH)*POPd) 

ETOt  * OUOT  s o. 

DO  86  I * l.NTYPE 

iTAud)  x 1h 

tAu  x o. 

IF  (NOOT(I).NE.O.)  TAU  = POP ( I ) /NDOT ( I ) 

T*U  x ABS(TAU) 

TAU  x TAU/UNIT 

IF  (TAU.NE.O.)  ENCODE  (10.FFMT, ITAud ) I Tau 
IF  (TAU.GT.l.E  04)  ENCOOE  ( 10, EFMT, ITAud ) ) TAU 

nout(np«i,I)  * pop<i» 

NOuT(NP,2,l)  x NOOTd) 

ETOt  * ETOT  ♦ Ed  )»POP(  I) 

86  OUOT  « OUOT  * Ed>*NOOT(I) 

ETOT  * EE'ETOT 
OUOT  • EE'OUOT 

NOOTd)  * ONPHOT 
PUP(1)  » PHOTON 

RAO(NP.l)  * RADIATE  * 3.0E  I 0*HNU#PHOTON 
RA0(NP,2)  * 3.0E  1 0*HNu*ONPHOT 
RAO (NP • 3 ) » PBEAM  x DVOX* IBEAH (NP ) 

PSl  |M  X GAMma*RAOUTE 
hEAT  » POISCH  . PBEAM  - OUOT  - PSTlH 
P » PBEAM 

ALPHA (NP,1>  « gnet 
ALPhA (NP. 2)  > GAMMA 
ALPHA (NP. 3)  x GAIN 
ALPHA (NP. 4)  » ABSORB 
C 

IF  (.NOT. OUT (6) ) GO  TO  61 


LASER 

1085 

LASER 

1086 

LASER 

1087 

LASER 

1088 

LASFR 

1089 

LASER 

1090 

LASER 

1091 

LASER 

1092 

LASFR 

1093 

LASER 

1094 

LASER 

1095 

LASER 

1096 

LASER 

1097 

LASER 

1098 

LASER 

1099 

LASER 

1100 

LASER 

1101 

LASER 

1102 

laser 

1103 

LASER 

1104 

LASER 

1105 

LASER 

1106 

LASER 

1107 

LASER 

1108 

LASER 

1109 

LASER 

1110 

LASER 

1111 

LASER 

1112 

laser 

1113 

LASER 

1114 

LASER 

1115 

LASER 

1116 

laser 

1117 

laser 

1118 

LASER 

1119 

LASER 

1120 

LASER 

1121 

LASER 

1122 

LASER 

1123 

LASER 

1124 

LASER 

1125 

LASER 

1126 

LASER 

1127 

laser 

1128 

LASER 

1129 

LASER 

1130 

LASER 

1131 

laser 

1132 

LASER 

1133 

LASER 

1134 

LASER 

1135 

LASER 

1136 

LASER 

1137 

LASER 

1138 

LASER 

1139 

LASER 

1140 

LASER 

1U1 

20 


c 

LASER 

1142 

•• 

c 

OUTPUT  OF  POPULATION  DENSITIES  AND  THElR  RATES  OF  CHANGE*  AND 

LASER 

1144 

c 

MISCELLANEOUS  ELECTRICAL  AND  OPTICAL  PARAMETERS  — 

LASER 

1145 

c 

laser 

1147 

c 

ENCODE  OPTICAL  ano  electrical  parameters  — 

LASER 

1148 

L * 1 

LASER 

1149 

ENCOOE  (120,307.LINE(L> ) IBEAM(NP),  FACTOR,  ENERGY 

LASER 

1150 

L - LM2 

LASER 

1151 

IF  (ENERgT.LE.O.J  L * L-4 

LASER 

1152 

DVOx  * DVOX/IOOO. 

LASER 

1153 

PBEAM  = PBEAM/1000. 

LASER 

1 154 

ENCODE  (80. 325, LINE <U > OVDX.  PBEAM 

LASER 

1155 

L * L»8 

LASER 

1156 

ENCODE  (80.308. LINE (L) ) SB.  SO 

LASER 

1157 

L * L*8 

LASER 

1 158 

ENCODE  (*0.322. LINE (L) ) 

LASER 

1159 

L * L»4 

LASER 

1160 

IF  (.NOT. ELECT)  GO  TO  53 

LASER 

1161 

c 

LASER 

1162 

«VCM  = KVOLT/DIST 

LASER 

1163 

pDIscM  * POISCH/IOOO. 

LASER 

1 164 

P * P ♦ PDISCM 

LASER 

1165 

lF  (P.NE.O.)  AFTER  3 PERCENT* (DEPOSIT  ♦ PDISCHl/P 

LASER 

1166 

c 

LASER 

1167 

ENCoOE  (120,317,LINE(L) ) AREA,  DIST.  CoND(NP.l) 

LASER 

1168 

L * L*l2 

LASER 

1169 

ENCODE  140.309. LINE(L) I RD 

LASER 

1170 

L * L*4 

LASER 

1171 

ENCoOE  (120, 310, LINE  ID)  CHARGE.  CURRENT 

LASER 

1172 

L * L»l2 

LASER 

1173 

ENCODE  ( 120 ,3n  «L INE  (L  > ) JSUS,  KVCM,  pdisch 

LASER 

1174 

L * L»l2 

LASER 

1175 

ENCoOE  ( 120, 312, LINE (L) ) VC,  KVOLT 

LASER 

1176 

L 1 L* 1 2 

LASER 

1177 

IF  (RESIST. EO. 0. ) GO  To  52 

LASER 

1178 

ENCODE  (40. 31 3. L INE (L) ) VR 

LASER 

1179 

L * L»4 

laser 

1180 

52 

IF  ( INDUCT. EO.O. ) GO  TO  S3 

LASER 

1181 

ENCODE  (40.314, LINE(L) ) LOIOT 

LASER 

1182 

L * L»4 

LASER 

1183 

53 

IF  (.NOT.STIM)  GO  TO  54 

LASER 

1184 

ENCOOE  (120,318.LINE(L) ) REFLECT.  PASS 

LASER 

1185 

L * L»12 

LASER 

1186 

IF  (CAVITY. EO. LENGTH)  GO  TO  504 

LASER 

1187 

ENCOOE  (80.324,LINE(L)>  TCAVITY,  CAVITy 

LASER 

1188 

L * L *8 

LASER 

1189 

504 

encode  (120,3\9,line(d ) length,  omega4P,  gamma 

LASER 

1190 

L * L«l2 

LASER 

1191 

ENCODE  (120,321,LINE(D)  GNET,  GAIN.  ABSORB 

LASER 

1192 

L * L ♦ 1 2 

LASER 

1193 

ENCODE  (40.322,LINe<L) ) 

LASER 

1194 

L * L»4 

laser 

1195 

IF  (P.EO.O.)  P * l.E  99 

LASER 

1196 

PST ]M  * PST IM/ 1000. 

LASER 

1197 

EFF  . | 00 . *PST IM/P 

LASER 

1198 

ENCODE  (120'315«iINE(L> ) RaDIATE.  PSTlM.  EFF 
L 3 L*l2 

IF  (ABS«EFF) .GT.IOO.I  L = L-* 

54  DEDT  x OEOT/IOOO. 

DUOT  = OUOT/IOOO. 

HEAT  = HEAT/1000. 

ENCODE  1120, 316. LlNE<L) ) DEDT.  DUDT.  ETOT 
L = L»l2 

ENCODE  <*0.327,LINE<L) > HEAT 
L * L»4 

IF  (.NOT. ELECT)  GO  TO  529 

ENCODE  (80.326.LINEIL) ) BEFORE.  AFTER 

L 1 L*fl 

529  ENCoOE  <*0.322,LINe<L> I 
L * L*4 

ENCOOE  ( 120.320.LlNE (L) ) 

L*Ax  * l»3 

L * 0 

WHITE  (6.110)  KAPTlON,  UNIT 
DO  35  I * l.NTYPE 

WRITE  (6. *00)  I.  GAS  ( I ) . Ed).  POP(II.  NDOT(I).  iTAUd). 
1 (LlNE<L«K>.  K * 1.*) 

35  IF  (L.LT.LMAX)  L * L** 

LC  x NTYPE«6 

write  (6. *01)  (LINE<L»K).  K X 1,4) 

L 3 L ** 

STEp  x H/UNIT 

WRITE  (6.107)  STEP.  <LINE(L*K),  K x 1,4) 

L 3 L*4 

WRITE  (6.114)  JSTART.  (LINe(L«K>,  K x 1,4) 

L * L** 

WRITE  (6. *01)  (LINE<L*K),  K x 1,4) 

L = L«4 

WRITE  (6.1U)  (LINE(L.K).  K x i,4) 

L 3 L*4 

51  IF  (L.GE.LMAX)  GO  TO  77 

WRITE  (6. *011  (LINe(L«K>,  K x 1,4) 

LC  X LC* 1 
L 3 L *4 
GO  TO  51 

77  NSK IP  x 4J-LC 

IF  (NSKlP.LT.l)  NSKlP  * 1 
ENCODE  (80,500, IMAGE)  NSK1P 
WRITE  (6. IMAGE)  TODAY 


SENSITIVITY  ANALYSIS  OF  REACTION  SCHEME  — 


61  IF  (OUT«7).AND.NP.NE.l)  CALL  ANALYZE  CNTYPE.  KTYPE.  RATE*.  NTIME. 
1 RPCT , flag.  pmax.  gas.  per.  kaption.  ltape.  mtape.  NTAPE) 

a«c  x nE/ntot.gt.re 

end  X ENO.OR.ARC 

IF  ( .not. ENO ) GO  To  78 


LASER 

laser 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 

LASER 


22 


I 

I 


' 


NE  * NP-1 

LASER 

1256 

WRITE  lb,22S>  NF.  TP 

LASER 

1257 

IF  (NBOLTZ.NE.O)  WRITE  (6,1?7>  TA.i 

NdOLTZ.  TBOLTZ 

LASER 

1258 

IF  (ARC)  WRITE  (6,224)  Nt,  »E 

LASER 

1259 

GO  TO  9 7 

LASER 

1260 

c 

LASFR 

1261 

c 

c 

continue  TO  INTEGRATE  the  fixations  from  a dead  start  from  this 

LASER 

1263 

c 

CYCLE  point  — 

LASER 

laser 

1 2*4 
1 

c 

LASER 

1266 

78 

T = TP  , 

0°  49  I * l.NEQ 

LASER 

1267 

LASER 

1268 

99 

l>NYfUN(I.n  * POP!  I» 

LASER 

1269 

jST  arT  * NFLAG  * 0 

LASER 

1270 

DELTA  = ETA 

LASER 

1271 

c 

LASER 

1272 

c 

in 

CALL  gear  <neo.  T.  ONYOTN.  scrtch.  H. 

hmin,  hmax.  delta,  method. 

LASER 

1279 

1 YMAX.  ERR « KFI.AG*  JSTaRT.  MaXDER*  NMAxP2.  PHlI 

LASER 

1275 

_ 

l A$£R 

c 

c 

LASER 

1277 

TT  = T - TP 

LASER 

1278 

If  (KFLAG.EO.l)  go  TO  30 

LASER 

1279 

jstart  = 0 

LASER 

1280 

nELAG  3 nelagm 

LASER 

1281 

IE  INELAG. Eo.l)  GO  TO  18 

LASER 

12P2 

H * H/|00. 

LASER 

1283 

IF  (NFLAG. LE.SI  go  TO  18 

LASER 

1289 

DELTA  * 2.*|)EL  T A 

LASER 

1285 

IE  (NElAG.LE. 10)  GO  TO  18 

LASER 

1286 

c 

LASER 

1287 

«»7 

|F  (NP.lt. IS)  GO  TO  99 

LASER 

1288 

c 

LASER 

1289 

c 

c 

OUTPUT  GENERATION 

LASER 

1291 

c 

LASER 

1293 

c 

summary  of  unimportant  reactions  — 

LASER 

1299 

c 

LASER 

1295 

rewind  mtape 

LASER 

1296 

kount  = 26 

LASER 

1297 

lc  = o 

LASER 

1298 

DO  SO 7 K = l.KTYPE 

LASER 

1299 

read  (MTAPE)  (NTINeM)i  1 * l.NTYPF), 

rate,  rname 

LASER 

1300 

if  ( .not .ELAG(K ) ) GO  TO  507 

LASER 

1301 

IE  (LC.EO.Ol  WRITE  16*402)  PER 

LASER 

1302 

LC  * LC* 1 

LASER 

1303 

IE  (LC.EQ.AOUNT)  LC  3 0 

LASER 

1304 

WRITE  (6.903)  K.  Rate.  (RNaHE(L).  l * 

1 .9) 

laser 

1305 

507 

CONTINUE 

LASER 

1306 

c 

LASER 

1 307 

c 

summary  of  IMPORTANT  reactions  — 

LASER 

1308 

c 

LASER 

1309 

REWlNO  MTAPe 

LASER 

1310 

LC  S 0 

LASER 

1311 

DO  SOI  8 3 l.KTYPE 

LASER 

1312 

23 


READ  (MTAPE)  (NT IME (lit  I a 1 »NTYPE) « RATE,  rname 
IF  (FLaO(K) ) GO  TO  501 
IF  (LC.EO.O)  WRITE  <6.404)  PER 
lC  > LC*  1 

IF  (LC.EO.KOUNTI  LC  » 0 

write  <6. *03)  k.  rate.  <rnahe<l>.  l * i.*> 

I C^TINuE 
WRITE  (6.216) 

call  plot  <mi,  np.  1.  ibeam.  o..  o..  time.  o..  otihe.  .false.. 
l .true.*  .true.*  .true.,  .true.,  kaption.  1.  o» 

WRITE  (6.306)  UNIT,  TODAY 

IF  (.NoT.STlM)  GO  TO  40 
KAPtION(I)  * lOHiNTENSITY 
K*PTI0n<2»  « 5H0I/0T 
WRITE  (6.218) 

call  plot  imi.  np.  l.  rad.  o.,  o.«  time.  o.«  dtime.  .false.. 
l .true.,  .true.,  .true.,  .true.,  kaption.  2,  o) 

WRITE  (6.306)  UNIT,  TOOAY 

) KAPTION)!)  * 10MNET  GAIN 
kaption <2>  * IOHTMRESHMOLO 
NPLOT  « 2 

IF  ( .NOT .ST IM)  NPLOT  » 1 
WRITE  (6.113) 

call  plot  <mi,  np.  1.  alpha,  o..  o.,  time.  o..  dtime.  .false.. 

I • 1 RUE . . .True..  .TRUE..  .TRUE.,  kaption.  NPLOT,  0) 

WRITE  (6.306)  UNIT.  TOOAY 

K*PTIOn<1>  « 10HLASER  gain 
kAPTIOn «2)  * 1 ohabsorpt ion 
WRITE  (6.126) 

call  plot  (mi,  np.  i,  alpha<i.3> ,o.,  o.,  time,  o..  dtime.  .false 
i .true.,  .true.,  .true.,  .true.,  kaption.  2,  0 

WRITE  (6.306)  UNIT,  TOOAY 
Nl  * 0 

IF  (.NoT.STlM)  GO  TO  502 
Nl  * Nj ♦ 1 

kaption<d  * iohoptical 

00  82  I « 1 .NP 

ALPhA<I,3)  * ALPHA (1,4)  * 0. 

RAO ( I . 1 ) * ALPHA (I.l)*RAD(I.l) 

> ALPhA ( I , 1 ) * RAO (I,l)/1000. 

» IF  (.NOT. ELECT)  GO  TO  511 
Nl  * Nf  * 1 

KAPTIOn(NI)  * 10HELECTRICAL 
00  88  I « l.NP 
kVCm  * N0UT(I,2,NP1)/DIST 
AMPS  * ISOS  11,1) 

ALPhA(I«4>  > KVCM'AMPS 
< RAD(I.nI)  ■ 1000. *ALPHA( 1,4) 

I IF  ( JBeAM.EO.O. I GO  TO  96 
Nl  ■ Nl ♦ 1 

KAPTIONINI)  S 1 ohe-beam 
DO  512  I * l.NP 
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LASER 
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LASER 
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LASER 
LASER 
LASER 
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r | 

«■ 

RAOii.nI)  * RAD ( I » 3 ) 

LASER 

1370 

51?  ALPHA 1 1 ♦ 3 ) a RAD ( I « 31/1000 . 

LASER 

1371 

96  IF  CNI.EO.Ol  r, 0 TO  508 

laser 

137? 

NPLOT  a N 1 

LASER 

1373 

WH I TE  (6.12?) 

LASER 

1 374 

CALL  PLOT  (Ml,  NP.  1.  RAO.  0.,  0..  TIME.  0.,  DTIME.  .FALSE.. 

LASER 

1375 

1 .TRUE..  .TRUE..  .TRUE.,  .TRUE.,  kaption.  NPLOT.  0) 

laser 

1376 

WRITE  (6.306)  UNIT,  TODAY 

laser 

1377 

c 

LASER 

1378 

IF  (.NoT.STlM)  go  TO  509 

LASER 

1379 

c 

compute  power  efficiency  — 

LASER 

1380 

DO  510  I = 1 .NP 

LASER 

1381 

P * RAo<I»3) 

LASER 

138? 

If  (ELECT)  P a P * RAD  ( I , 2 1 

LASER 

1383 

If  (P.EO.O.l  P a I.E  99 

LASER 

1389 

ALPhA<I.2>  a 100. •RADII, 1)/P 

LASER 

1385 

510  If  UBSTALPHAII. 2)1. GT. 100.1  ALPHAII.2)  » 0. 

LASER 

1386 

c 

LASER 

1387 

c 

LASER 

1388 

c 

integrate  power  densities  — 

LASER 

1389 

c 

LASER 

1300 

c 

LASER 

1391 

509  DO  506  1 * 1.3 

LASER 

1392 

8i  a radii. n 

LASER 

1303 

RA0d.il  a 0. 

LASER 

1394 

DO  506  K * 2.NP 

LASER 

1395 

Kl  a K-l 

LASER 

1306 

82  • BI 

LASER 

1397 

Bl  a RADIK. I) 

LASER 

1308 

506  RAO(K.i)  * RA0«K1»I»  ♦ O.SE  03*T0UT»(B1  ♦ B2) 

LASER 

1309 

c 

LASER 

1400 

WRITE  16.1251 

LASER 

1401 

call  plot  imi.  np.  i,  rad.  o.,  o.«  time*  o.,  dtime.  .false.. 

LASER 

1802 

1 , TR|»E. . .true.,  .true.*  .true.,  kaption,  NPLOT.  01 

LASER 

1803 

WRITE  (6.3061  UNIT.  TODAY 

LASER 

1804 

c 

LASER 

1805 

c 

TABULAR  summary  of  MISCELLANEOUS  ELECTRICAL  ANO  OPTICAL  PARAMETERS 

L n ™ 

LASER 

1807 

LmDLK 

c 

LASER 

1809 

12  a 1 

LASER 

1810 

5??  Il  a I? 

LASER 

1811 

1 2 a 1?»50 

LASER 

181? 

If  (I2.GT.NP)  I?  a NP 

LASER 

1813 

WHITE  (6.223)  UNIT 

LASER 

1814 

WRITE  (6.226)  (TIMEU).  IBEAM(i),  ALPHA(I.3|.  NOUT ( I ,?.NP 1 ) . 

LASER 

1815 

i 

1 ISUSd.l).  ALPHAd.8).  ALPHA  ( I . 1 > . ALPMA(1.2>.  I * 11.12) 

LASER 

18)6 

If  (I2.LT.NP)  GO  TO  522 

LASER 

1817 

c 

LASER 

1818 

If  (.NoT.STlM)  GO  TO  508 

LASER 

1819 

DO  513  I = l.NP 

LASER 

1 8?0 

ALPHA (I. 3)  a PAD ( I « 1 > 

LASER 

1 8?  1 

P * RAO (1*3) 

LASER 

18?? 

If  (ELECT)  P a P . RADII. 2) 

LASER 

18?3 

If  (P.f-O.O.)  P a I.E  99 

LASER 

14?4 

. 

5)3  ALPhA ( I . A ) a 100. •RADII. 1)/P 

LASER 

18?5 

c 

25 

laser 

18?6 

L, 

— a — 

— 

T-- d 

c — LASER 

C plot  OPTICAL  POWER  DENSITY  ANO  EFFICIENCY  — LASER 

C LASER 

C LASER 

kAPtiOnU*  « lOHPOwER/VOL  LASER 

«aption(2>  = 10HEFF ICIENCY  LASER 

WRITE  (6.221)  LASER 

CALL  PLOT  (Ml.  NP.  1.  ALPHA.  0..  0..  TIME.  0..  DTIME.  .FALSE..  LASER 

1 .TRUE..  .FALSE..  .TRUE..  .TRUE..  KAPTION,  2,  0)  LASER 

WRITE  (6.306)  UNIT,  TODAY  LASER 

C LASER 

C LASER 

C PLOT  OPTICAL  ENERGY  DENSITY  ANO  EFFICIENCY  — LASER 

C LASER 

C LASER 

kaptionu*  • 10HENERGY/VOL  LASER 

*APTi0N<2)  « 10HEFF ICIENCY  LASER 

WRITE  (6,222)  LASER 

CALL  PLOT  (Ml,  NP.  1.  ALPHA (1.3) .0. . 0..  TIME.  0..  OTIME.  .FALSE..  LASER 
1 .TRUE.*  .FALSE..  .TRUE..  .TRUE..  KAPTION.  2.  0)  LASER 

WRITE  (6,306)  UNIT,  TOOAY  LASER 

C LASER 

508  IF  (.NOT. ELECT)  GO  TO  85  LASER 

kaptionui  * 4HISUS  LASER 

KAPTI0N(2>  ■ 8HDISUS/OT  LASER 

WRITE  (6,214)  LASER 

CALL  PLOT  (Ml,  NP.  1.  ISUS,  0.,  0.,  TIME,  0..  OTIME,  .FALSE.,  LASER 

i .true.,  .false.,  .true.,  .true.,  kaption.  2.  o>  laser 

WRITE  (6.306)  UNIT.  TODAY  LASER 

C LASER 

KAPTION(l)  * 6HSIGMA  LASER 

KAPTION(2>  * 10HRO  (OHM)  LASER 

Y 0 ( I ) a Y0(2)  * OY ( 1 > * 0.  LASER 

OY(ei  3 0.5  LASER 

WRITE  (6.215)  LASER 

CALL  PLOT  (Ml.  NP.  1.  COND,  YO.  DY.  TIME.  0.,  OTIME.  .FALSE.,  LASER 

l .false..  <false.»  .true.,  .true.,  kaption.  2,  o>  laser 

WRITE  (6,306)  UNIT,  TOOAY  LASER 

C LASER 

NPLOT  3 4 LASER 

KAPTlONd)  * 10HC  APAC1TOR  LASER 

KAPTI0N(2>  * 10HDISCHARGE  LASER 

KAPTIOnO)  * 10HRESISTANCE  LASER 

KAPTION (4)  3 10HINOUCTANCE  LASER 

C LASER 

IF  (INDUCT. EO.O.)  NPLOT  * 3 LASER 

VHIn  « 0.  LASER 

IF  (NOUT (NP , 1 ,NP 1> .LT.VMIN)  VMIN  * NOUT (NP , 1 ,NP 1 ) LASER 

IF  (N0uT(NP,2,NPl).LT.VMIN)  VMIN  * NOUT (NP.2.NP1 ) LASER 

IF  (NOUT(NP,l,NP2) .LT.VMIN)  VMIN  * NOUT (NP, 1 ,NP2)  LASER 

IF  (NOUT (NP, 2, NP2). LT.VMIN)  VMIN  * NOUT (NP.2.NP2)  LASER 

CALL  AXIS  (.TRUE..  VMAX,  VMIN,  YO.  OY.  YDC)  LASER 

Y0(2)  3 OV(2)  3 0.  LASER 

TEST  = YOC.NE.O.  LASER 

C LASER 

WRITE  (6,217)  LASER 

call  plot  (mi.  np.  l.  nouto.i.npii.  yo»  dy.  time,  o.,  otime.  laser 
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1 


1 .false.*  test.  .true.,  .true.,  .true.,  kapt ion,  NPLOT,  Ol 

LASER 

1 464 

WRITE  (6,3061  UNIT,  TOOAY 

LASER 

1485 

c 

LASER 

1486 

85 

DO  50  I * 2.NTYPE 

LASER 

1487 

IF  (.NOT .PLOTS! I) 1 GO  TO  50 

LASER 

1488 

ENCODE  (?0,?11,KAPTION)  I,  I 

LASER 

1489 

WRITE  (6*2271  GAS  1 1 1 

LASER 

1490 

CALL  PLOT  (Ml,  NP.  1.  NOUT (1,1,1),  0.,  0.,  TIME,  0.,  DTIME. 

LASER 

1491 

i .false.*  .true.,  .false.,  .true.,  .true.,  kaption*  2,  o> 

LASER 

1492 

WRITE  (6,3061  UNIT,  TODAY 

laser 

1493 

so 

CONTINUE 

LASER 

1494 

c 

LASER 

1495 

c 

LASFR 

1497 

loo 

FORMAT  (80A1I 

LASER 

1498 

c 

LASER 

1499 

101 

FORMAT  (8A10I 

LASER 

1500 

c 

LASER 

1501 

10? 

format  (/ix,134iih-)//i 

LASER 

1502 

c 

LASER 

1503 

103 

FORMAT  C18X, “SUMMARY  OF  UPDATED  RATES  FOR  INPUT  REACTION  SCHEME  OF 

LASER 

1504 

1 SYNTHETIC  kinetics  COOE  GENERATED  ON* A 1 0/25x#DR • WILLIAM  B.  LACIN 

LASER 

1505 

2A*  NORTHROP  RESEARCH  ANO  TECHNOLOGY  CENTER,  PALOS  VERDES*  CALIFORN 

LASER 

1506 

31*“) 

LASER 

1507 

c 

LASER 

1508 

lot 

FORMAT  (/1X.A2, I4,3X.4A10,AS,2x,AlO,3X,A10,5X.5AIO) 

LASER 

1509 

c 

LASER 

1510 

105 

format  (/6X»I*6X*ReACT ION ( 1 1 *36X*KF ( I 1 *8X*KR ( I ) *20X*REFERENCES  OR 

LASER 

1511 

2COMMENTS*/ 1 X . 1 34 ( lM- II 

LASER 

1512 

c 

LASER 

1513 

loo 

FORMAT  (“MOMENTUM  TRANSFER  FOR  *,A10I 

LASER 

1514 

c 

LASER 

1515 

107 

FORMAT  I4JX*INTEGRaTI0N  STEP  SIZE  x*F10.3,6X,4A10) 

LASER 

1516 

c 

LASER 

1517 

100 

FORMAT  ( 1 30x « H A 1 0 ) 1 

LASER 

1518 

c 

LASER 

1519 

109 

FORMAT  (• ( 1H1 *12* (/I  1 • ) 

LASER 

1520 

c 

LASER 

1521 

110 

FORMAT  1 1H1 /55X ,4A1 0///24X*POPUL  AT  ION  DENSITIES  AND  RATES  OF  CHANG 

LASER 

1522 

1E*20X*ELECTRICAL  AnO  OPTICAL  PARAMETERS*//13X*I*5X*SPECIES*6X*E1I» 

LASER 

1523 

2*8X»N(H*7X»DN(I>/DT*7x*TAu<I>*/20x*NAME*8x*(EV>*7X*(CM-3)*5X*(CM- 

LASER 

1524 

33^SECI *1PE1 0 . 1 • SEC*7X*PARAMETER*6X*VALUE*5X*UNlTS*/9x.70(lH-» ,3X. 

LASER 

15?5 

440  ( 1H“ 1 / 1 

LASER 

15?6 

c 

LASER 

1S?7 

111 

FORMAT  (9X, 70  1 1H“ ) , 3X ,4 A 1 0 ) 

LASER 

1528 

c 

LASER 

15?9 

11? 

FORMAT  (10X.3E10.3l 

LASER 

1530 

c 

LASER 

1531 

113 

format  1 1H1/53X* INSTANTANEOUS  net  GAIN  COEFFICIENT  (CM-1 !•//• 

LASER 

1532 

c 

LASER 

1533 

114 

FORMAT  (44X*OROER  OF  INTEGRATION  1 1 0 ,6X ,4A 1 0 * 

LASER 

1534 

c 

LASER 

1535 

115 

FORMAT  (10X»NO  e-  cross  SECTION  data  WAS  FOUNO.“l 

LASER 

1536 

c 

LASER 

1537 

116 

format  (10X*SIGMA  » 0 IN  The  RANGE  (0,*F4.1»j  ev.*» 

LASER 

1538 

c 

LASER 

1539 

117 

format  iiox*errors  occurred  in  cross  section  oata.*i 

LASER 

15*0 

27 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LASER  1541 

lie  FORMAT  (10X*CROSS  SECTION  DOES  not  SPAN  tO,*F4.1*l  ev.*>  LASER  1542 

LASER  1543 

U9  format  (iox*the  mass  entereo  for  this  species  is  s o*>  laser  1544 

laser  1545 

1?0  FORMAT  I AlQ*  . E <•  E ♦ *A10>  LASER  1546 

LASER  1547 

121  FORMAT  (8X*TIME  T * *.1PE10.3*  SEC*)  LASER  1540 

LASER  1549 

1??  FORMAT  I1H1,S6X*P0wER  DENSITY  (WATT/CH3) •//)  LASER  1550 

LASER  1551 

123  format  (45x#*  the  original  Rate  constant <s>  have  been  modified*)  laser  1552 

LASER  1553 

1 24  FORMAT  (44X#**  ILLEGAL  ATTEMPT  TO  MODIFY  RATE  CONSTANT (S)  WAS  REJ  LASER  1554 

IECTeDO  LASER  1555 

LASER  1556 

125  FORMAT  »1H1,56X*ENePGY  DENSITY  ( JOULE/L ITER* •//»  LASER  1557 

LASER  1558 

126  FORMAT  (1H1,42X*LAS£R  GAIN  AND  MEOIUM  ABSORPTION  COEFFICIENTS  <CM-  LASER  1559 

11**//)  LASER  1560 

LASER  1561 

127  FORMAT  I40X*THE  PROCESSING  OF  ELECTRON  CROSS  SECTIONS  REQUIRED* * LASER  1562 

1F5.1*  CP  SEC* */40X* ANO* 1 3*  BOLTZMANN  ELECTRON  CALCULATIONS  CONSUME  LASER  1563 

2D**F6. 1*  CP  SEC.**  LASER  1564 

LASER  1565 

128  FORMAT  <50X*NO  FURTHER  WARNING  DIAGNOSTICS  WILL  BE  ISSUED.*)  LASER  1566 

LASER  1567 

129  FORMAT  (I2*>  *4AlO»5X)  LASER  1568 

LASER  1569 

130  FORMAT  UH1.24X. ‘NORMALIZED  EXTERNAL  SOURCE  FUNCTION  FOR  CREATION  LASER  1570 

10F  ELECTRONS  in  THE  ENERGY  RANGE  CU.  0 « DU l*/43x*AVERAGE  ENERGY  0 LASER  1571 

2f  created  electrons  * « u*  > * *f6.2*  ev*/)  laser  1572 

LASER  1S73 

131  FORMAT  1/62x*ELECTR0N  ENERGY  U (EV)*)  LASER  1574 

LASER  1575 

201  FORMAT  ( // 1 5X . A 1 O^ERRORS  WERE  DETECTED  IN  PROCESSING  THE  INPUT  REA  LASER  1576 

ITIOn  SCHEME.  MODIFICATIONS  OF  THE  REACT 10N*/25X*SCHEME.  CORRECTIO  LASER  1577 

2NS  IN  REACTION  SYNTAX.  CHANGES  IN  DIMENSION  STORAGE.  OR  ADDITIONS  LASER  1578 

3TO  THE  E-*/25X*CR0sS  SECTION  FILE  MAY  BE  REQUIRED  TO  REMOVE  ALL  OF  LASER  1579 

4 THE  ERROR  CONDITIONS.*)  LASER  1500 

LASER  1581 

202  FORMAT  (//15X.A10*THE  FOLLOWING  SPECIES  MERE  INITIALIZED  BY  INPUT  LASER  1582 

ID*U,  BUT  DID  NOT  OCCUR  IN  THE  KINETIC  SYSTEM. */25X*IF  THE  PROGRAM  LASER  1503 

2 IS  EXECUTED.  THEV  WILL  BE  IGNORED.  BUT  INCLUOEO  IN  THE  TOTAL  PRES  LASER  1504 

3SU*E  (AS  BUFFEP#/25X*GASES  IN  3-BOOY  COLLISIONS)  AND  FOR  MOMENTUM  LASER  1S05 

4TRANSFER  IN  E-  KINETICS  ANALYSIS**/)  LASER  1506 

LASER  1507 

203  FORMAT  (//1SX.A10*INITIAL  POPULATION  DENSITIES  FOR  THE  FOLLOWING  S LASER  1588 

1PCCIES  WERE  NOT  DEFINED.  IF  THE  PROGRAM  IS  EXE-*/25X*cUTE0»  NO(I)  LASER  1509 

2*0  WILL  BE  ASSUMED**/)  LASER  1590 

LASER  1591 

204  FORMAT  (//15X,A10*ENERGIES  FOR  THE  FOLLOWING  SPECIES  WERE  NOT  OEFI  LASER  1592 

INED.  IF  PROGRAM  IS  EXECUTEO.  Ed*  * 0 BILL  RE*/25X* ASSUMED**/)  LASER  1593 

LASER  1594 

205  FORMAT  (//1SX.A10*ERRORS  OCCURRED  FOR  THE  INPUT  CROSS  SECTIONS  FOR  LASER  1595 

1 Thf  FOLLOWING  ELECTRON  COLLISION  PROCESSES. */25x* IF  THE  PROGRAM  I LASER  1596 

2s  Executed,  a zero  cross  section  over  all  energy  will  be  assumed**  laser  1597 


- 


3/1 

C 

206  FORMAT  (I40x«5A10>> 

c 

207  FORMAT  <//lSX.A10*AN  ATTEMPT  MAS  MADE  TO  ENTER*  BY  SPATES  ...  t IN 
1PU1,  The  FOLLOWING  RATES*  WHICH  ARE  not  *CCES-*/25X*SlBLE  BY  input 
2 for  The  synthetic  program  that  mas  GENERATED.  if  the  program  EXE 
3COT ES»  the  AT -#/25x* TEMPTED  MODIFICATIONS  MILL  BE  IGNOREO.  ANO  THE 

a original  rates  used**/) 

c 

2oe  FORMAT  I//1SX* A10*SVNThESIZED  SUBROUTINES  ANO  DATA  FILE  MERE  GENER 
iatEo  with  dimension  declarators  nmax  ■•I4*,»/2sx*kmax  **i4»,  and  n 
2KMAx  »*ia*.  these  MUST  agree  with  THE  CORRESPONDING  DIMENSION  dec 
3LARATORS  */25X*IN  THE  MAIN  PROGRAM  (LASER).  EXECUTION  MAY  BE  POSS 
AIBLe  if  present  storage  EXCEEOS  ORIGINAL.  BUT*/25X*CAUTI0n  is  AOVI 
5VISED  TO  INSURE  THAT  LABELED  COMMON  BLOCKS  AGREE  WITH  THOSE  IN  THE 
6 SYnTHETIC»/25X*SUBROUTINES  ASSOCIATED  KITH  THE  DATA  FILE  GENERATE 
TO  On  TaPEA.*> 

C 

209  FORMAT  I//1SX,A10*TAPEA  DATA  FILE  VECTORS  EXCEEOEO  DIMENSION  STORA 
1GE  IN  MAIN  PROGRAM*  AND  WERE  TRUNCATEO  DURING*/25X*READ.  NKMAX  *• 
2lA«,  KHAX  *• I A* * ANO  NMAX  »*I4*.  TAPEA  CONTAINS  NK  «*I4*.  KTYPE  * 
3*IA«,  AND#/25X*NTYPE  »*I4*.  CAUTION  IS  ADVISED.*) 

c 

210  FORMAT  I//15X* A) 0*MOMENTUM  TRANSFER  COLLISION  FREQUENCY  IS  ZERO  AT 
1 SOME  POINT,  e-  ANALYSIS  CONTAINS  I/OM  TERMS. •> 

C 

211  FORMAT  I2HN(, I2.1H) *5X,OHON(*I?.AH)/OT,lXl 
C 

21?  FORMAT  <1H1/S5X*SUMMARY  OF  POSSIBLE  ERROR  C0N0ITI0NS*////I5X*SEVER 
1ITY»A5X*DESCRIPTI0N  */15X.l05(lH-) ) 

C 

21A  FORMAT  I 1H1 .2SX 'DISCHARGE  CURRENT  DENSITY  JSUS  (AMP/CM2) . ANO  ITS 
IRATe  of  CHANGE  D/OTIJSUS)  (A/CM2/S) •/✓) 

c 

215  FORMAT  (1H1.20XAPLASMA  CONDUCTIVITY  SIGMA  a E*NE*MU  (/CM/OHM),  AND 

i discharge  impedance  rd  * o/area/sigma  iohmi*//) 

c 

216  FORMAT  C1H1/A0X*E-BEAM  current  DENSITY  (AMP/CM2)  AS  A FUNCTION  OF 
ITIMe*//) 

c 

217  FORMAT  (IH1s56X*CIRCUIT  VOLTAGES  IKVOLT)*//) 

C 

218  FORMAT  1 1H1/27X* INTRACAVITY  RADIATION  INTENSITY  I ( W/CM2 > AND  ITS 
IR*Te  OF  CHANGE  DI/DT  IW/CM2/SEO*'/) 

C 

219  FORMAT  (/13X* ( VS IG(K* I ) ARE  FORWARO  CKal)  OR  REVERSE  (K>2)  RATES  F 
10«  THE  ITH  INELASTIC  PROCESS  IN  THE  E“  KINETICS  ANALYSIS)*) 

C 

220  FORMAT  (1H1,20(/| ,40X*ELECTRON  ENERGY  RANGE  EMAX  «*.0PF6.2*  EXCEED 

is  maximum  value  **opf6.2) 

c 

221  FORMAT  <1HI,40X*OPTICALLV  EXTRACTED  POWER  DENSITY  (KW/CM3)  AND  EFF 
llClENCY  (%)•//) 

C 

222  FORMAT  I 1MI »3SX*OPT ICALLY  EXTRACTED  ENERGY  DENSITY  ( JOULE/LITER)  A 
1NO  EFFICIENCY  (*)•//) 
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223  FORMAT  ( 1H1 »45X*SUMMARY  of  electrical  and  optical  parameters*// 

123X*TIm£*7X*JBEAM*7X*PBEAM*6X*VOLTagE*7X*JSUS*7X*D1SCH*7X*OUTPUT* 
26**0PT  FFF*/iax*(*.lPE8.2«*  SECI*  IX* « A/CM2) *4X* (KW/CM3I *7X* <KV> •« 
36**«A/CM2)*4X*CKW/CM3>*5X*IKW/CM3)*7X*<*>*/18X,99(1H-)/) 

224  FORMAT  «40X*ELECTRON  DENSITY  NE  **1PE10.3*  EXCEEDS  LIMIT  NE/NMOL  < 
1 MPElo.3) 

225  FORMAT  C/AOx*CALCUL»TION  IS  TERMINATED  AT  CYCLE  NP  **I3*»  T * *1PE 
110. 3.*  SEC.*) 

224  FORMAT  (18X,F9.2.5f12.2.F13.2«F11.2> 

227  FORMAT  IIHI/32X.*P0P0LATI0N  DENSITY  N (CM-3)  AND  RATE  Of  CHANGE  ON 
1/DI  (CM-3/S)  FOR  •« AlO/) 

300  FORMAT  I///25X*PR0GRAN  IS  TERMINATED  EOR  ERRORS  SPECIFIED  FATAL.*! 

301  FORMAT  I1PE10.4) 

302  FORMAT  (///25X.86 ( 1H* ) ///) 

303  FORMAT  I20X.8AI 0 > 

304  FORMAT  ( 1H1 ,5 (/) ) 

305  FORMAT  I*K*,A1.*I*.I3.*I*I 

304  FORMAT  t/62x*T 1ME  I*1PE9.3*  SEC)*/100X*OR.  WILLIAM  B.  LACINA.*All/ 
1 1 OOx*NORTHROP  RESEARCH  ANO  TECHNOLOGY*) 

307  FORMAT  I3X*JBEAM*5X*  * *0PFl0.2*  AMP/CM2**8X*DEP0S1T ION  * *F10.2« 
117X*ENE»GV*4X*  « *F10.0*  kEV*.9X> 

308  FORMAT  I3X*S<U  >0)  * *IPE10.3*  CN-3/SEC*7X*S<U  « 0)  * • 

1 1PE10.3*  CN-3/SEC*AX) 

309  FORMAT  (3X*R  CDISCH) *2X*  * *1PE10.3*  OHM*) 

310  FORMAT  U3X*Q*9X*  » • ♦ 1PE10.3*  C0UL0MB*8X*1 IDISCH) *2x*  * *»1PE10. 
13*  AMP*9X) 

311  FORMAT  (3X* J(OISCH)*2X*  * *1PE10.3*  AMP/CM2*0x*ESUS*4X*  ■ *0PF10. 
13*  KV0LT/CM*7XAESUS*JSUS  * XOPFlO.2*  KW/CM3*) 

312  FORMAT  (43X*Q/c*7X*  * *0PF10.3*  KVOLT* 10X*V (OISCH) *2X*  « *0PF10.3 

1*  kvolt*» 

313  FORMAT  C3X*V (RESIST > * *0PF10.3*  KVOLT*) 

314  FORMAT  (3X#L*OI/OTa3X*  * *0PF10.3*  KVOLT*) 

315  FORMAT  I3X*INTENSITY  * *1PE10.3*  WATT/CM2*,7x*OPTICAL*3x*  ■ *. 

lOPE 10.2*  Kw/CM3*9X*EFFICIENCY  * *,0PFl0.2*  %•) 

314  FORMAT  (3XAE<U»0NE/0T  * AlPElO.3*  KW/CM3*9X*0E I TOT )/OT  « *E10.3t 
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!•  KW/CH3#9x«E(T0T)«4X*  * »E10.3«  J/CM3»7X> 

C 

3J7  FORMAT  (3X»AREA*6X»  * •0PF10.2*  CM2»12X*01ST»6X*  » *0PF10.2*  CH» 

U3X«COnOUCT*3x«  a •IPE10«3*  /OHM/CM*) 

C 

318  FORMAT  U3X*REFLECT»3X»  * *0PF10.2*  %»14X«L0SS»6X«  « •0PF10.2*  * 

1/P»SS*> 

C 

319  FORMAT  (3X*LENGTH»4X*  * «0PF10.2«  CM*13X*0MEGA/4/PI  « MPE10.3. 
ll7X»THRESH*4X*  * MPE10.3*  CM- 1 • ) 

C 

3?0  FORMAT  140C1H-) tSOX) 

C 

321  FORMAT  <3X*NET  GAIN  * MPE10.3.*  CN-1M  1X*LASeR  GMN  * »1PE10.3 
1*  CM-l*UX*ABSORPTION  a •.1PE10.3*  CM-1*> 

C 

3??  FORMAT  11  OX) 

C 

323  FORMAT  (#•*••*  THE  ORIGINAL  RATE  HAS  BEEN  MODIFIED  **•*«#) 

C 

324  FORMAT  (3X*T (CAVITY*  * »F10.1*  Ns« 13X*L  (CAVITY)  a »F10.2*  CM*) 
C 

325  FORMAT  (3X*0V0X*6X*  a *F10.2*  KV/CM* 10**P (BEAM) OX*  a *F10.2» 

1 • KW/CM3*6X> 

C 

326  FORMAT  C3X*DP( BEFORE)  a *F10.2*  »• 14X*0P (AFTER*  **F11.2*  %*11X» 

C 

327  FORMAT  (3x*HEAT  ♦ SP  « MPE10.3*  KW/CM3*6X) 

C 

400  FORMAT  (9X.l5,sx,Al0'0PF7.2.1P2E14.3'2X«Al0t6X.4Al0) 

C 

401  FORMAT  (S2X.4A10) 

C 

402  FORMAT  (1H1,36X«THE  FOLLOWING  REACT ’ONS  CONTRIBUTE  LESS  THAN  *F3.0 
1*  *»//29X»R»8X*KF(K)»10X*KR(K)»15X*»-.C*CTION(K)»/27Xf75(lH-)/) 

C 

403  FORMAT  (25X,I5,5XtAl0«5X«A10'5X'4A10/> 

C 

404  FORMAT  (IH1,40X*THE  following  REACTIONS  were  IMPORTANT  (>  *F3.0« 

1*  %) •✓/29X*K*8X*KF (K ) *10X*KR (K ) * 15x*REaCT ION (K ) */27x»75 ( 1H-* /> 

C 

500  FORMAT  ( 1H ( , 12, * «/ ) 90X*OR.  WILLIAM  B.  LACINA.*Al 1/90X*NORTHROP  RES 
ie*Rch  and  technologt»i a) 

C 

C — 

c 

99  call  exit 
end 
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SUBROUT INE  SYNTH  (LTAPE.  MTAPE,  NTAPE*  NSCRTCH.  NOATA,  NSiZE. 

SYNTH 

2 

1 MAXGASi  GAS.  KMAX.  NKMAX.  LEVI.  LEV?.  DATE) 

Synth 

3 

c 

svnth 

4 

c 

Synth 

5 

c 

Synth 

6 

c 

THIS  SUBROUTINE  WILL  EOIT  THE  INPUT  FILE  OF  KINETIC  REACTIONS  AND 

Synth 

7 

c 

AUTOMATICALLY  GENERATE  SUBROUTINES  REQUIRED  FOR  THE  MOLECULAR  Kl- 

Synth 

B 

c 

NET  ICS  ANALYSIS  ANQ  ITS  LINKAGE  TO  COUPLED  ELECTRON  KINETICS  CAL- 

SYNTH 

9 

c 

CULaTIONS.  SYMBOLIC  REACTIONS  ARE  TRANSLATED  INTO  COMPUTER  CODEO 

Synth 

10 

c 

EQUATIONS.  SUBROUTINES  SYNTHESIZED  AREi  (1)  RATES  OF  CHANGE  DNI/DT 

SYNTH 

11 

c 

Of  POPULATION  OENSITIES.  (21  The  JACOBIAN  D(DNI/OTl/D(NJl.  AND  (3) 

SYNTH 

12 

c 

DEFINITION  OF  the  CORRESPONDENCE  OF  MOLECULAR  states  which  occur 

SYNTH 

13 

c 

in  the  electron-molecule  scattering  processes  for  the  e-  kinetics. 

SVNTH 

1 A 

c 

INPUT  CONSISTS  OF  AN  ARBITRARILY  LONG  SEOUENCE  OF  CARO  PAIRS  OF 

SYNTH 

IS 

c 

the  form 

SYNTH 

16 

c 

SYNTH 

17 

c 

11  Al  ♦ A2  * A3  ♦ ...  & B1  • B2  ♦ B3  ♦ ... 

SYNTH 

18 

c 

21  KF.  KR.  KOMNENT  (2E10.3.SX.SA10I 

SVNTH 

19 

c 

SYNTH 

20 

c 

WHERE  Al.  A?,  ....  Bl.  82.  ...  ARE  THE  PHYSICAL  NAMES  OF  THE  RE- 

SYNTH 

21 

c 

ACTANT  SPECIES  (FOR  ANY  SPECIES  NAME*  THE  FIRST  'NSIZE*  CHARACTERS 

Svnth 

22 

c 

are  recognized,  ano  others  ignoreoi.  Each  side  of  the  reaction  may 

SVNTH 

23 

c 

CONTAIN  UP  to  *MAX*  species.  THERE  are  NO  RESTRICTIONS  on  THE 

SYNTH 

2* 

c 

reaction  format  (which  may  include  embedded  blanks*  except  for 

SYNTH 

?S 

c 

the  FOLLOWING  — 

SVNTH 

26 

c 

Svnth 

27 

c 

11  ELECTRONS  ARE  DENOTEO  BY  EITHER  E.  E-»  OR  E(-). 

SYNTH 

28 

c 

SVNTH 

29 

c 

21  HIGH  energy  ELECTRONS  (E-BEAHI  are  denoted  by  he-. 

SVNTH 

30 

c 

SYNTH 

31 

c 

• 3)  BUFFER  GASES  ARE  DENOTED  BY  N. 

SYNTH 

32 

c 

SYNTH 

33 

c 

4)  NOISE  PHOTONS  ARE  DENOTED  BY  HnU.  IF  HNU  APPEARS  ON  THE 

SYNTH 

3* 

c 

LEFT  HAND  SIDE,  IT  IS  REJECTED.  ALL  PROCESSES  WHICH  CON- 

SYNTH 

35 

c 

tribute  noise  TO  The  buildup  of  stimulated  EMISSION  are 

SYNTH 

36 

c 

to  be  DESCRIBED  with  HNU  ON  THE  RIGHT  HANO  SIOE  OF  THE 

SYNTH 

37 

c 

REACTION. 

SYNTH 

38 

c 

SYNTH 

39 

c 

SI  STIMULATED  emission  OR  ABSORPTION  PROCESSES  ARE  DESCRIBED 

Synth 

AO 

c 

IN  TERMS  OF  PHOTON  NUMBER  DENSITY,  AND  ARE  RECOGNIZED  BY 

Synth 

Al 

c 

THE  APPEARANCE  OF  RAO. 

SYNTH 

A2 

c 

SVNTH 

A3 

c 

61  THERE  ARE  NO  SPECIAL  RESTRICTIONS  ON  SPECIES  NAMES  EXCEPT 

SYNTH 

44 

c 

THAT  IONS  MUST  EXPLICITLY  EXHIBIT  THEIR  CHARGE  IN  THEIR 

SYNTH 

A5 

c 

NAME  IE.G.  F-»  KR2 ( ♦ I , AR(»*>*  CO-,  ETC.).  IF  AN  ion 

SYNTH 

A6 

c 

IS  POSITIVE*  The  » SYMBOL  must  BE  IMMEDIATELY  followed  by 

SYNTH 

a7 

c 

either  another  * OP  If  IN  OROER  To  avoid  confusion  WITH 

SVNTH 

A8 

c 

THE  NORMAL  usage  OF  * IN  WRITING  THE  REACTION  AS  ABOVE. 

SYNTH 

A9 

c 

SVNTH 

50 

c 

IF  KF  * o (KR  * 01.  NO  TRANSLATION  OF  THE  forward  (REVERSE!  RE- 

SYNTH 

51 

c 

aCIion  term  occurs  (Thus,  null  operations  containing  unnecessary 

SVNTH 

52 

c 

mu:  TIPlICATIONS  by  ZERO)  are  ELIMINATED,  rate  constants  used  for 
SYNTHESIS  Can  be  Changed  IN  SUBSEQUENT  execution,  however,  so  a 

SVNTH 

53 

c 

SYNTH 

5A 

c 

NON7ERO  value  should  be  used  DURING  synthesis  for  any  reaction 

SYNTH 

55 

c 

PROCESS  WHICH  is  NOT  TO  BE  PERMANENTLY  NEGLECTED. 

SYNTH 

56 

c 

SYNTH 

57 

' 

L 

REACTIONS  Are  SUBJECTED  to  several  tests  to  DETERMINE  WHETHER  THEY 

32 

SVNTH 

58 

1 

SHOULD  BE  RETAINED  TOR  CONSTRUCTING  THE  KINETIC  EQUATIONS  IN  THE 
SUBROUTINE  WHICH  IS  GENERATEO.  THESE  INCLUDE  THE  FOLLOWING* 

II  HIGH  ENERGY  ELECTRONS  MUST  BALANCE  ON  LHS  AND  RHS. 

21  BUFFER  GAS  M MUST  balance  ON  BOTH  SIOES  OF  EOUATION. 

31  CHARGE  CONSERVATION  MUST  NOT  BE  VIOLATED. 

41  NO  REVERSE  process  for  SPONTANEOUS  raoiation  ALLOWED. 

51  DUPLICATE  REACTIONS  IEvEN  WRITTEN  BACKWARDS)  ARE  IGNORED 

6)  DETAIL  balance  for  binary  molecular  COLLISIONS  ENFORCED. 

ti  secondary  e-  COLLISION  PROCESSES  may  have  fixed  RATE  con- 
stants,  or  zero  MAY  be  ENTERED,  in  which  case  they  will  be 

AUTOMATICALLY  LINKEO  BY  DEFAULT  To  AN  E-  KINETICS  ANALY- 
SIS. during  SYNTHESIS,  the  ELECTRON  CROSS  SECTION  FILE 

will  be  scanned  to  determine  MhETHER  data  for  THE  process 
is  available,  and  if  not.  AN  INFORMATIVE  DIAGNOSTIC  issueo 

S)  STIMULATED  EMISSION  (ANO  ABSORPTION)  ARE  DENOTED  BY  THE 
SYNTAX*  B » RAO  <•  A ♦ RAD.  (IT  IS  ASSUMED  THAT  THE  FOR- 
WARD reaction  DENOTES  EMISSION.)  ABSORPTION  PROCESSES  CAN 
BE  ENTERED  AS*  X ♦ RAO  ••  V.  (ONLY  THE  FORWARO  REACTION  IS 
RECOGNIZED.  ANO  CORRESPONDS  TO  ABSORPTION.) 

THERE  ARE  a VARIETY  of  errors  related  TO  EXCEEDEO  LIMITS,  bao 
syntax,  bao  physics,  etc.  which  are  recognized  ano  flagged,  both 
fatal  and  NON-FATAL  warning  CONDITIONS  arc  GENERATED  DURING  svnth- 
Sis,  AND  ARC  provided  in  an  edited  OUTPUT  summary  OF  THE  real  '.  ION 
SCHCMC  WHICH  WAS  PROCESSED.  A CROSS-REFERENCE  LISTING  OF  TMC 
OCCURRENCE  of  SPECIES  in  The  REACTION  scheme  IS  ALSO  GENERATEO. 

THE  SYNTHESIZED  SUBROUTINES  are  DOCUMENTED  with  COMMENT  CAROS. 


DIMENSION  IMAGE(BO).  KAR(10>,  REFER (40 ) « LINEdOO).  NBUFF(2l. 

1 NHC(2).  G*S ( 1 ) « KINETIC(IO).  LABEL(5.2).  LL(160).  FORM(S), 

2 LEVK|).  LEV2 ( 1 ) , VSIG(Z).  T I TLE ( 31 • NAMEllOO).  COMM(S).  K00E(8>. 

3 LDUM(IO) 

REAL  Kf»  KR,  kb 

IMjeGER  GAS,  SIGN.  RATE (21.  E.  HNU,  RAO*  LHS,  RHS,  HE,  TITLE*  OATE 

LOGICAL  ELECT (2).  RADIATE.  REJECT.  REVERSE.  FORWARD.  DETAIL.  EXIT. 
1 SOURCE.  BUFFER.  PH0T0(2).  OPTICAL.  LASER,  TEST 

DAT*  E.  HE,  HNU.  RaD.  F,  R,  SKIP  / 4HE(->.  SHHE(->«  3HHNU.  3HRaD« 

1 7HFOHWARO.  7HRE VERSE.  SHUN!)  / 

DATa  Kb.  EO,  H,  C / 1.38  E-23,  1.602  E-19,  6.625  E-34,  3.0  E 10  / 

NTape  ■ FILE  FOR  GENERATION  OF  SUBROUTINES  RATES.  LEVELS 

MTAPC  • FILE  for  GENERATION  OF  SUBROUTINE  JACOB 
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59 

Synth 

60 

SYNTH 

61 

SYNTH 

62 

SYNTH 

63 

Synth 

64 

SYNTH 

65 

SYNTH 

66 

SYNTH 

67 

SYNTH 

68 

SYNTH 

69 

SYNTH 

70 

SYNTH 

71 

SYNTH 

72 

SYNTH 

73 

SYNTH 

74 

SYNTH 

75 

SYNTH 

76 

SYNTH 

77 

SYNTH 

78 

Synth 

79 

SYNTH 

80 

SYNTH 

81 

SYNTH 

82 

SYNTH 

83 

SYNTH 

84 

Synth 

85 

SYNTH 

86 

SYNTH 

87 

SYNTH 

88 

SYNTH 

89 

SYNTH 

90 

SYNTH 

91 

SYNTH 

92 

SYNTH 

93 

Synth 

94 

SYNTH 

95 

SYNTH 

96 

SYNTH 

97 

Synth 

98 

SYNTH 

99 

SYNTH 

too 

SYNTH 

101 

SYNTH 

102 

SYNTH 

103 

SYNTH 

104 

SYNTH 

105 

SYNTH 

106 

Synth 

107 

SYNTH 

108 

SYNTH 

109 

Synth 

no 

SYNTH 

111 

Synth 

112 

SYNTH 

113 

SYNTH 

114 

SYNTH 

115 
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Ll*PE  * SCRATCH  FILE  FOR  EOITINg  REACTION  STRUCTURE 

SYNTH 

116 

at  the  termination  of  the  synthesis,  ntape  is  copied  ONTO 

MTAPE. 

SYNTH 

117 

NUATA  * FILE  CONTAINING  UPDATED  ELECTRON  CROSS  SECTION 

DATA 

SYNTH 

118 

nscrtch  « scratch  file  FOR  STORING  REACTIONS  ano  RATE  data 

SYNTH 

SYNTH 

119 

120 

KB  * KQ/EO 

SYNTH 

121 

EXIT  « REJECT  » .FALSE. 

SYNTH 

122 

IN  s NtVPE  * 2 

SYNTH 

123 

NAMe(I)  * GAS(l)  * RAD 

SYNTH 

124 

NAMf (2)  a GAS <2 I * E 

SYNTH 

125 

LASER  * .FALSE. 

SYNTH 

126 

rPHOTON  n I 

SYNTH 

127 

READ  (5.102)  TITLE 

SYNTH 

128 

call  cover  (title. 2» 

SYNTH 

129 

REWINO  nscrtch 

SYNTH 

1 30 

write  (NSCRTCH)  TITLE.  DATE 

SYNTH 

SYNTH 

131 

132 

GENERATE  SYMBOLIC  R*TE  SUBROUTINE  TO  Be  EXECUTED  — 

SYNTH 

SYNTH 

133 

134 
1 35 

WRITE  (NTAPe, 400) 

SYNTH 

WRITE  (NTAPe. 105) 

SYNTH 

136 

WRITE  (NTAPE. 406) 

SYNTH 

137 

WRITE  (NTAPe. 105) 

SYNTH 

138 

WRITE  (NTAPE, 605) 

SYNTH 

139 

WRITE  (NTAPE. 105) 

SYNTH 

140 

WRITE  (NTAPe, 460) 

SYNTH 

141 

WRITE  (NTAPE. 406) 

SYNTH 

142 

WRITE  (NTAPe. 105) 

SYNTH 

143 

write  (Ntape. 510) 

SYNTH 

144 

WRITE  (MTAPe.105) 

SYNTH 

145 

WRITE  (MT APe ,406) 

SYNTH 

146 

WRITE  (MTAPe.105) 

SYNTH 

147 

WRITE  (MT APe, 505) 

SYNTH 

148 

WRITE  (MT APe » 105) 

SYNTH 

149 

WRITE  (MTAPe.460) 

SYNTH 

150 

WRITE  (MTAPe.406) 

SYNTH 

151 

WHITE  (MTAPe.105) 

SYNTH 

152 

ENCOOE  (80.401.KOOE) 

SYNTH 

153 

WRITE  (NTAPE. 102)  KODE 

SYNTH 

154 

ENCODE  (60. 504, KODE) 

SYNTH 

15S 

W«ITE  (MTAPe.102)  KODE 

Synth 

156 

WRITE  (NTAPE. 402) 

SYNTH 

1ST 

WRITE  (NTAPe.105) 

SYNTH 

158 

WRITE  (NTAPE, 104)  kMAX,  KMAX,  kMAX,  NKMAX,  MAXGAS 

SYNTH 

159 

WRITE  (NTAPE, 512) 

SYNTH 

160 

WRITE  (MTAPe.402) 

SYNTH 

161 

WRITE  (MTAPe.105) 

SYNTH 

162 

WRITE  (MTAPE.104)  kMAX,  KMAX,  kMAX.  nkmax,  maxgas 

SYNTH 

163 

WRITE  (MTAPe.512) 

SYNTH 

164 

WRITE  (NTAPe, 421)  KB,  eo.  H»  c 

Synth 

165 

WRITE  (MTAPE.421)  KB.  EO.  H»  C 

SYNTH 

SYNTH 

166 

167 

WRITE  (NTAPe, 403) 

SYNTH 

168 

WRITE  (NTAPE, 407) 

SYNTH 

169 

WRITE  (NTAPe.105) 

SYNTH 

170 

WRITE  (NTAPE, 415) 

SYNTH 

171 

WRITE  (NTAPe.105) 

SYNTH 

172 
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WRITE  (NTAPE.A22) 

write  (NT ARE *406 ) 

WRITE  (NTAPE.105) 

ENCOOE  (8O.2O0.KOOE) 

WRITE  (NT APe, 102)  KODE 
WRITE  (NT APe, 105) 

WRITE  (HTAPE.A03) 

WHITE  (NTAPe.507) 

WRITE  (HTAPE.105) 

WRITE  (NTAPE.A22) 

WRITE  (NTAPe.A06» 

WRITE  (HTAPE.105I 
WRITE  (HTAPE.102)  KOOE 
WRITE  (NT APe, 105) 

FORwaRo  DEFAULT  FOR  SECONDARY  ELECTRON  COLLISIONS  — 

Hi  = | 

M2  a 2 

INTEGER  * AH(I1) 

INITIAL  * ThR  a KF ( 

NTOT  * 5h*NT0T 
mult  ■ AH*NO( 

LAST  a 6H  - KR( 

IF  (NSI2E.GT.10)  NSIZE  a 10 

max  a 5 

MO  a 5 

MlO  a 1 0*H0 

M20  a 2*N 1 0 

LC  a 0 

NK  a 0 

INPUT  a 0 
K * 1 
1 K » K-l 

READ  HOLEHITH  STATEMENT  OF  REACTION  number  k — 

10  K * K*1 

REAo  (5.100)  IMAGE 
IF  (EOF (5>  > 5.76 
76  READ  (5.101)  VSIG*  COMM 
DO  61  L * 1 .MO 
61  REFER (L»  * COMM (LI 
INPUT  a INPUT. 1 
EXIT  * EXIT. OR. REJECT 
REWIND  LTAPe 

ENCOOE  (10. 209, NUMBER)  K 
REjECT  a OETAIL  * .FALSE. 

R*'E(1>  * HATEI2)  * 1H 
MESS  * MO  ♦ 1 

IF  (REFER(l) .eq.ih  » MESS  * 1 

BUFFER  * SOURCE  * RADIATE  * ELECT(l)  * ELECT (2)  a .FALSE. 
PHOTO(l)  * PHOTO (2)  * .FALSE. 

DO  U « 1 .MAX 
DO  9 M * 1*2 
NBOFF (Ml  * NME(H)  a 0 
9 LABEL (L*M>  a o 
D°  22  L * I. 100 
??  LlNE(L)  * lH 
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DO  21  L * 1*160 

Synth 

230 

21 

U «L1  * 1H 

synth 

231 

N»  *R  * 6 

SYNTH 

232 

DtCoDE  (7.100, INITIAL)  (LL (NKAR»L ) » L = 

1.7) 

Synth 

233 

NKAr  a NKAR *7 

Synth 

234 

KZ  a K/10 

Synth 

235 

K3  » K - 10**2 

SYNTH 

236 

K 1 a K2/10 

SYNTH 

237 

kZ  a K2  - 10*K1 

Synth 

238 

lE  (Kl.EO.O)  GO  TO  11 

SYNTH 

239 

NKAr  a NKAR.) 

Synth 

240 

ENCODE  t 10* INTEGER. LL(NKAR) > K 1 

SYNTH 

241 

11 

lE  (Kl  .K2.EQ.0)  GO  TO  29 

SYNTH 

242 

NKAr  a NKAR*l 

SYNTH 

243 

ENCOOE  <10. INTEGER. LL(NKAR) ) K2 

SYNTH 

244 

29 

NKAr  a NKAR.l 

SYNTH 

245 

ENCODE  < 10. INTEGER. LL (NKAR)  ) K3 

SYNTH 

246 

NrAr  * NKAR.l 

SYNTH 

247 

LL (NKAR)  2 1H) 

synth 

248 

M * 1 

SYNTH 

249 

NO  a NTYPE 

Synth 

250 

NE  a NCH  * 0 

SYNTH 

251 

NN  a 1 

SYNTH 

252 

lP  . 1 ' J = N : 0 

SYNTH 

253 

c 

SCAN  The  80  BCD  characters  to  DETERMINE 

SPECIES 

— 

synth 

254 

2 

lE  (I.E0.80)  GO  TO  4 

SYNTH 

255 

I * 1*1 

Synth 

256 

c 

IMBEODED  blanks  are  ignored. 

SYNTH 

257 

IE  (IMaGE(I).EO.IH  ) GO  TO  2 

SYNTH 

258 

IF  < IMAGE  Ul.NE.ia.)  GO  TO  3 

Synth 

259 

MM  = 1 

Synth 

260 

GO  TO  4 

synth 

261 

c 

synth 

262 

3 

IE  (IMAGE(I).NE.IH.)  GO  TO  6 

synth 

263 

IE  (IMaGE(I.I) .EQ.IHI .OR. IMAGE ( I« 1 ) ,EQ. 

1H*>  GO 

TO  6 

synth 

264 

mm  * o 

synth 

26S 

GO  TO  4 

SYNTH 

266 

c 

SYNTH 

267 

c 

CONTINUE  to  ADO  nonblank  BCD  CHARACTERS 

TO  THE 

GAS  NAME.  NAMES 

SYNTH 

268 

c 

are  truncated  to  ignore  all  but  the  first  nsize 

characters. 

synth 

269 

c 

SYNTH 

270 

6 

if  (J.eQ. NSIZE)  go  TO  2 

SYNTH 

271 

J * JM 

synth 

272 

L**  a LP*I 

SYNTH 

273 

LtwE(LP)  * KAR(J)  = IMAGEdl 

SYNTH 

274 

IE  (KAR(J) .E0.1H.)  NCH  = NCH  ♦ NN 

Synth 

275 

IE  (KAR(J) .E0.1H-)  NCH  a NCH  - NN 

SYNTH 

276 

GO  TO  2 

Synth 

277 

c 

Synth 

278 

c 

dump  The  CONTENTS  of  the  name  after  a oelimiter 

(♦.  *'»  OR  COL.  801 

synth 

279 

c 

H*s  been  ENCOUNTERED  — 

SYNTH 

280 

c 

Synth 

281 

4 

IE  (J.EO.O)  GO  TO  60 

Synth 

282 

IE  (M.gT.ZI  go  to  60 

synth 

283 

lE  (I.E0.80.AND.M.NE.2)  GO  TO  60 

synth 

284 

IE  (N.LT.MAx)  GO  TO  38 

SYNTH 

285 

ENCODE  (MI0,214,REEER(MESS) ) MAX 

Synth 

286 

36 


MESS  ■ HESS  ♦ HO 

SYNTH 

287 

AO  REJECT  ■ .TRUE. 

SYNTH 

288 

ENCODE  «M10. 216, REFER (HESS) 1 

SYNTH 

289 

MESS  ■ HtSS.MO 

SYNTH 

290 

LB  • 0 

Synth 

291 

00  53  L * 1.80 

Synth 

292 

IF  < IMAGE (L).EO.IH  ) 00  TO  53 

SYNTH 

293 

LB  * LB*1 

SYNTH 

294 

IMAOE(LB)  * IMAGE(L) 

SYNTH 

295 

S3  CONTINUE 

SYNTH 

296 

LB  ■ LB* 1 

Synth 

297 

IF  (LB.GT.80)  LB  ■ 80 

SYNTH 

298 

DO  55  L • LB»80 

SYNTH 

299 

55  IMAGE (L)  * IH 

SYNTH 

300 

NUMBER  ■ 1H 

SYNTH 

301 

ENCODE  UNRECOGNIZABLE  REACTION  — 

Synth 

302 

ENCODE  1100. 100. KINETIC)  ( IMAGE (L ) . L a 1.80) 

SYNTH 

303 

GO  TO  26 

SYNTH 

304 

36  ENCODE  I10.100.NgAS)  (KAR(L).  L ■ l.J) 

Synth 

305 

IF  (NGAS.EQ.1HE)  NCH  « NCH  - NN 

Synth 

306 

IF  (NGAS.EQ.1HE.0R.NGAS.EQ.2HE-)  NGAS  a E 

synth 

307 

if  (NGAS.EQ.3HHE-)  NGAS  * HE 

Synth 

308 

IF  (NGaS.EQ.HE)  NCH  a NCH  « NN 

SYNTH 

309 

J»  0 

SYNTH 

310 

IF  (NGAS.E0.1HM)  GO  TO  8 

SYNTH 

311 

IF  (NGAS.EQ.HE)  GO  TO  8 

SYNTH 

312 

IF  (NGAS.NE.HNU)  GO  TO  30 

SYNTH 

313 

ir  (M.EQ.l)  GO  TO  67 

SYNTH 

314 

IF  (RADIATE)  GO  TO  67 

SYNTH 

315 

IF  (PHOTO(tl.OR.PHOTO(2)>  GO  TO  67 

SYNTH 

316 

RADIATE  a .TRUE. 

SYNTH 

317 

VSlG(2)  a o. 

SYNTH 

318 

GO  TO  16 

SYNTH 

319 

30  IF  (NGAS. NE. RAD)  GO  TO  *5 

SYNTH 

320 

IF  (PHOTo(M) ) GO  TO  67 

SYNTH 

321 

PHOTO (M)  a .TRUE. 

synth 

322 

IF  (RADI AT^ .AND. (PHOTO ( 1 ) .OR. PHOTO (2) ) 1 GO  TO  67 

SYNTH 

323 

GO  TO  AS 

SYNTH 

324 

67  reject  » .true. 

SYNTH 

325 

ENCODE  (M10.227.REFER(MESS) ) 

SYNTH 

326 

mess  * hess  ♦ ho 

SYNTH 

327 

GO  TO  16 

SYNTH 

328 

*5  N « N» 1 

SYNTH 

329 

IF  (NGAS.EQ.E)  NE  > NE*1 

SYNTH 

330 

DO  15  L * 1 .NO 

SYNTH 

331 

IF  (GAS (L ) .NE .NGAS)  GO  TO  15 

SYNTH 

332 

LABEL (N.H)  a l 

SYNTH 

333 

GO  TO  8 

SYNTH 

334 

15  CONTINUE 

SYNTH 

335 

IF  (N0.NE.HAXGA5)  GO  TO  39 

SYNTH 

336 

IF  (REJECT)  GO  TO  16 

SYNTH 

337 

REJECT  » .TRUE. 

SYNTH 

338 

ENCOOE  (M20.21 3.REFER (MESS ) ) MAxGAS 

SYNTH 

339 

MESS  * HESS  » 2*H0 

SYNTH 

340 

GO  TO  16 

SYNTH 

341 

39  NO  a NO  * 1 

SYNTH 

342 

GAS (NO)  a NGAS 

SYNTH 

343 

37 


LABEL !NtM>  ■ NO 

8 NEW  a NKAR  - SO* (NK AR/80 ) * 7 
If  (NEW. LE. 721  GO  TO  17 
NEW  ■ NEW. 6 

NKAr  ■ 80* (NEW/80 > ♦ 6 
I.L  (NKAR)  3 1HS 

17  DECODE  (6*100. MULT)  (LL(NKAR»L>.  L - 1.61 
If  (NGAS.NE.1HM)  GO  TO  70 
NBOrr(M)  * nbuffim>  • 1 
BUFFER  * .TRUE. 

DECOOE  (S.lOO.NTOT)  (LL (NKAR«L ) • L « 1.5) 

NKAr  a NKAR.5 

go  TO  16 

70  IF  (NGAS.NE.HE)  GO  TO  20 
NHE(M)  * NHE(M)  « 1 
SOURCE  ■ .TRUE. 

GO  TO  16 

20  NKAr  ■ NKAR. 4 

Nl  a LABEL(N,M)/10 
N2  ■ LABEL <N.M)  - 1 0*N1 
IF  (Nl.EO.O)  GO  TO  13 
NKAr  a NKAR. 1 

ENCqOE  (10. INTEGER. LL (NKAR))  Nl 
13  NKAr  a NKAR. 1 

ENCODE  (10.  INTEGER. LL (NKAR))  N2 
NKAr  a NKAR. I 
LL (NKAR)  ■ 1H) 

16  IF  (I.eQ.80)  GO  TO  27 

DELIMITERS  (.,  ,*)  ENCODEO  INTO  holerith  line  TO  DEFINE  REACTION  — 

L»*  a LP*1 
LlNE(LP)  * IM 
LR  ■ Lp*l 

LlNE(LP)  1 IMAGE) 1) 

LP  ■ LP*  1 
LInE(LP)  ■ 1H 
M ■ M . MM 
IF  (MM.EO.0l  GO  TO  2 
NL  a NE 

IF  (.NOT. SOURCE)  GO  TO  6 2 
IF  (NHE(I).eO.I)  GO  TO  62 
REJECT  * .TRUE. 

ENCOOE  (M10.226.REFER(MESS) ) 

MESS  * *ESS  ♦ MO 

62  IF  |.NOT.(PhOTO(1).ANO.NE.NE.O)I  GO  TO  66 
REJECT  * .TRUE. 

ENCODE  (M10.227.REFERIMESS) I 

mess  * mess  * mo 

6*  ELEcT(l)  a . NOT. (PHOTO(l). OR. SOURCE. OR. BUFFER) 

DETAIL  » . NOT. (PHOTO) 1). OR. SOURCE) 

DETAIL  * OETAIL.AND.(NE.EQ.O).AND.(N*NBUFF(1).E0.2> 

ELECT(l)  ■ (NE.EQ.l) .AND.(N.E0.2) .AnO.ElECT (1) 

if  (VSIG(I).ne.o.)  encode  iio. i 03. rate i i > ) vsigid 

FORWARD  a (VSIG( 1> .NE.O.) .AND. (NE.LE.l) 

FORWARD  a FORWARD. OR. ELECT ( 1 ) 

left  ■ NKAR 


SYNTH 

Synth 

SYNTH 

synth 

synth 

SYNTH 

synth 

synth 

SYNTH 

synth 

SYNTH 

SYNTH 

synth 

SYNTH 

SYNTH 

Synth 

Synth 

synth 

synth 

synth 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

synth 

SYNTH 

synth 

Synth 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

synth 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

synth 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 

SYNTH 
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NN  a - 1 

SYNTH 

AO  1 

NE  • N » 0 

SYNTH 

A02 

IF  (.NOT. FORWARD)  NKAR  ■ 9 

SYNTH 

*03 

SYNTH 

*06 

CONSTRUCT  REVERSE  REACTION  TERR  — 

SYNTH 

*os 

SYNTH 

*06 

IF  (REJECT)  GO  TO  2 

SYNTH 

*07 

DECODE  <6*  lOO.LAST ) (LL1NKAR»L>.  1-  « 1.6) 

SYNTH 

*00 

rKAr  a NKAR. 6 

SYNTH 

*09 

IF  (Kl.EO.O)  GO  TO  26 

SYNTH 

*10 

NKAR  * NKAH.l 

SYNTH 

*11 

encode  (10. INTEGER. LL(NKAR|  > K 1 

SYNTH 

*12 

2* 

IF  (K1.K2.EO.O)  GO  TO  20 

SYNTH 

*13 

NKAr  a NKAR. I 

SYNTH 

*1* 

EHCOOC  ( 10. INTEGER. LL (NKAR) ) K2 

SYNTH 

*15 

20 

NKAr  a NKAR. I 

SYNTH 

*16 

ENCODE  t 10. INTEGER. LL (NKAR) ) K3 

SYNTH 

*17 

NKAr  ■ NKAR. I 

SYNTH 

*10 

LLINKAR)  ■ 1H) 

SYNTH 

*19 

GO  TO  2 

SYNTH 

*20 

SYNTH 

*21 

? T 

IF  M_P.GT.lO0)  LP  « 100 

SYNTH 

*22 

ENCODE  (100. 100. KINETIC)  (LINE(L).  L ■ l.LP) 

SYNTH 

*23 

OPTICAL  ■ PhOTO(1).OR.PHOTO(2) 

SYNTH 

*2* 

SYNTH 

*25 

IF  (NBUFF ( 1 ) .EO.NBUFF (2) . ANO.NBUFF ( l ) .LE. 1 ) 

GO  TO  56 

SYNTH 

*26 

ENCODE  (H10,22*,REFER(MESS| ) 

SYNTH 

*27 

mess  * Hess  ♦ ho 

SYNTH 

*20 

ENCODE  (R10.216.REFERIHESS) ) 

SYNTH 

*29 

mess  * hess  . mo 

SYNTH 

*30 

REJECT  » .TRUE. 

SYNTH 

*31 

GO  TO  23 

SYNTH 

*32 

SYNTH 

*33 

56 

IF  (NHF(1).EQ.NHE(2).ANO.NhE(1).LE.1)  GO  TO 

57 

SYNTH 

*3* 

ENCODE  (Ml 0,225. REFER (HESS) ) 

SYNTH 

*35 

mess  * Hess  ♦ ho 

SYNTH 

*36 

ENCoOE  (Ml 0 ,2 16, REFER (MESS ) ) 

SYNTH 

*37 

MESS  * HESS  » ho 

SYNTH 

*30 

REJECT  « .TRUE. 

SYNTH 

*39 

GO  TO  23 

SYNTH 

*60 

SYNTH 

**1 

57 

IF  (.NOT. ( (SOURCE. AND. (RADIATE. OR. OPTICAL) ) . 

or. ( .not .photo ( 1 > . 

SYNTH 

**2 

1 ANO. PHOTO (2»| 1 ) 00  TO  66 

SYNTH 

*6  3 

ENCOOE  (M10.22T, REFER (HESS) ) 

SYNTH 

666 

mess  « hess  » ho 

SYNTH 

665 

REJECT  * .TRUE. 

SYNTH 

666 

SYNTH 

*67 

GENERATE  CHECKSUM  IDENTIFIER  — 

SYNTH 

660 

SYNTH 

*69 

66 

IF  (REJECT)  GO  TO  23 

SYNTH 

*50 

K 1 a K2  * NBUFF ( 1 ) * (HAXGAS* l ) . NHE ( 1 > • (MAXGAS.2) 

SYNTH 

*51 

K 1 Sq  ■ K2SU  a K1»K1  - 2*NBUFF ( 1 ) • (MAXGAS* 1 ) «NHF ( 1 ) * (MAXGAS.2) 

SYNTH 

*52 

00  31  L * 1.5 

SYNTH 

*53 

K 1 . K|  * LABEL (L.l) 

SYNTH 

*56 

k2  a k?  . label il.2I 

SYNTH 

*55 

K 1 SQ  a K 1 SO  . LABEL (L . 1 ) *L ABEL (L . 1 > 

SYNTH 

*56 

31 

k2Sq  a K2SU  ♦ LABEL (L«2) *LaBEL (L .2) 

SYNTH 

*57 

39 


if 

ENCODE  (10.107.LHS)  Kit  KlSO 

SYNTH 

A58 

ENCODE  ( 10. 107.RhS)  K2,  K2SO 

SVNTh 

A59 

c 

SYNTH 

A60 

c 

check  for  duplication  — 

Synth 

A61 

c 

Synth 

A62 

If  (K.FO.l)  GO  TO  23 

Synth 

A63 

kNI  * K-l 

synth 

A6A 

DO  25  L = 1.KM1 

SYNTH 

A65 

rEA0  (LTAPE)  Lit  L2 

SYNTH 

A66 

If  (REJECT)  60  TO  23 

Synth 

Ab7 

REJECT  = LHS.E0.L1.AND.RHS.EQ.L2 

SYNTH 

A68 

REVERSE  * LHS.E0.L2.AN0.RHS.E0. LI 

synth 

A69 

If  (RA01ATE)  REVERSE  « .fALSE. 

SYNTH 

A70 

REJECT  = REJECT. OR. reverse 

SYNTH 

A71 

If  (.NOT. REJECT)  GO  TO  25 

Synth 

A72 

ENCODE  (M10,210.REFER(HESS) ) L 

SYNTH 

A73 

if  (REVERSE)  ENCODE  (Ml 0.21 1 .REfER (MESS) ) L 

SYNTH 

A7A 

MESS  * MESS  t HO 

SYNTH 

A75 

25  continue 

Synth 

A76 

c 

SYNTH 

A77 

23  ELECT ( 2 > * (NE .EO. 1 • .AND. (N.E0.2) 

SVNTH 

*70 

nR  * NE 

SYNTH 

A79 

REVERSE  * .NOT. (RADIATE. OR. (PHOTO(l).ANO.VSlG(D.EO.O.)) 

synth 

A0O 

If  (.NOT. RE VERSE)  VSIG(2)  « 0. 

SYNTH 

A01 

If  (PH0T0(1).AND..N0T.PH0T0(2))  VSlG(2>  « 0. 

SYNTH 

A«2 

ELECT (2>  • .NOT. (BUffER.OR.RAOIATE. OR. OPTICAL. 

SYNTH 

A03 

1 OR. SOURCE). AND. ELECT (2) 

SYNTH 

A0A 

If  (VSIG(2) .NE.O.)  ENCOOE  ( 10. 103.RATE (2) ) VSIGI2) 

SYNTH 

A05 

If  (VSIG(1)»VSIG(2) .NE.O.)  ELECT ( 1 ) • ELECT(2)  « .fALSE. 

SYNTH 

*86 

If  (ELECT(1).aND.ELECT(2))  VSIG(l)  « VSIG(2)  - 0. 

synth 

*87 

ELEcT(I)  » ELECT(1).ANO.VSIG(1).EQ.O. 

Synth 

A88 

ELEcT<2)  * ELECT(2).ANO.VSIG(2).EO.O. 

synth 

A09 

DETAIL  * (VSIG(1).NE.O.).AnO.(VSIG(2).EO.O.).AND.(NE.EQ.O).AND. 

SYNTH 

ARO 

1 IN.NBUff (2) .E0.2) .AND. DETAIL. ANO. REVERSE 

SYNTH 

AO) 

REVERSE  ■ REVERSE. AND. (DETAIL. OR. (VSIG(2). NE.O.). OR. ELECT(2)) 

SYNTH 

AQ2 

REJECT  « .NOT. (FORWARD. OR. REVERSE* .OR. REJECT 

SVNTH 

Aq3 

REJECT  ■ REJECT. or. (K.gT.KHAX) 

SYNTH 

AR* 

If  (K.lE.KMAX)  GO  TO  A3 

SVNTH 

A95 

ENCODE  (M10.215tREFER(MESS) ) KMAx 

synth 

AQ6 

MESs  * MESS  . MO 

SYNTH 

A97 

c 

SYNTH 

A98 

c 

test  foR  charge  conservation  — 

SYNTH 

A99 

c 

SYNTH 

500 

A3  If  (NCh.EO.O)  GO  TO  85 

SYNTH 

501 

REJECT  « .TRUE. 

Synth 

502 

ENCODE  (M10.20A.REfER(MESS) ) 

SYNTH 

503 

MESS  * MESS  ♦ MO 

SVNTH 

50A 

85  If  (REJECT)  GO  TO  51 

Synth 

505 

if  ( .not • (Elect ( 1 > .or. elect (2) ) > go  to  51 

synth 

506 

If  (NK.LT.NKMAX)  go  TO  A8 

synth 

507 

1 

reject  ■ .true. 

synth 

508 

ENCODE  (M20.218.REFERIMESS) ) NKMAX 

SYNTH 

509 

f 

mESs  « MESS  t 2»m0 

synth 

510 

G«  TO  51 

SVNTH 

511 

i 

c 

synth 

512 

• 

c 

SEARCH  fILE  OF  ELECTRON  CROSS  SECTIONS  — 

SYNTH 

513 

c 

SYNTH 

SlA 

te  • 

40 

40 

CALL  DEKODE  (NAME*  IMAGE  * Lit  L2.  LOUM,  KAR,  lOt  IN,  60) 

Synth 

S15 

rEWjNO  NOATa 

syntm 

516 

74 

read  (NOATA, 100)  IMAGE 

Synth 

517 

If  (EOF (NOATA))  79,72 

Synth 

510 

72 

C*LL  OEKOOE  (name,  image,  lei,  LL2,  LOUM,  KAR,  10,  IN,  60) 

SYNTH 

519 

If  (L1.NE.LL1.0R.L2.NE.LL2)  GO  TO  77 

SYNTH 

520 

Ml  = 1 

Synth 

521 

M2  * 2 

SYNTH 

522 

GO  TO  52 

SYNTH 

523 

c 

Synth 

524 

77 

If  (Ll.NE.LL2.0R.L2.NE.LLl)  60  TO  70 

SYNTH 

525 

Ml  = 2 

SYNTH 

526 

M2  = 1 

SYNTH 

527 

GO  TO  52 

SYNTH 

520 

c 

Synth 

529 

c 

E*hAUST  NUMERICAL  OATA  FOR  THIS  PROCESS  — 

SYNTH 

530 

c 

SYNTH 

531 

78 

REAo  (NOATA, 100) 

Synth 

532 

73 

READ  (nOATA, 102)  letters 

Synth 

533 

If  (LEtTEMS.E0.1H  ) GO  TO  74 

Synth 

534 

REAo  (NDATA, 102) 

SYNTH 

535 

G°  TO  73 

SYNTH 

536 

c 

SYNTH 

537 

79 

ENCOOE  <Ml0, 219, REFER (MESS)  ) 

Synth 

538 

MESs  * MESS  . MO 

SYNTH 

539 

GO  TO  52 

SYNTH 

540 

c 

If  DESIRED,  LACK  OF  E-  CROSS  SECTIONS  CAN  BE  MADE  SUFFICIENT  FOR 

SYNTH 

54  1 

c 

REJECTION  of  THE  REACTION  bT  The  REMOVAL  OF  THE  ABOVE  CARO,  ANO 

SYNTH 

542 

c 

THE  REMOVAL  OF  »C*  ON  THE  FOLLOWING  THREE  CAROS  — 

SYNTH 

543 

c 

ELEcT(l)  * ELECT (2)  * .FALSE. 

SYNTH 

544 

c 

reject  * .TRUE. 

SYNTH 

545 

c 

go  TO  Si 

SYNTH 

546 

5? 

READ  (nOATA, 102)  (REFER (L ) , L * 1.M0) 

Synth 

547 

NK  » NK*1 

SYNTH 

548 

c 

KOLl(NK)  * K 

SYNTH 

549 

If  (.NoT.ELECT(l))  GO  TO  54 

SYNTH 

550 

RATe<1)  = lOH(COMPUTEO) 

SYNTH 

551 

LEVl (Nk)  * Kl-2 

Synth 

552 

ENCOOE  (M10 ,223. REFER (MESS) ) F 

SYNTH 

553 

MESS  * NESS  ♦ MO 

SYNTH 

554 

54 

If  (. NOT. ELECT (2) ) GO  TO  51 

SYNTH 

555 

RATE12)  * lOH(CONPUTED) 

SYNTH 

556 

LEV2 (Nk ) * K2-2 

SYNTH 

557 

ENCOOE  (M10 .223.PEFER (MESS) ) R 

SYNTH 

558 

mess  « mess  » mo 

SYNTH 

559 

c 

SYNTH 

560 

51 

If  (NL.EQ.NR)  GO  To  90 

SYNTH 

561 

NE  * NR-NL 

SYNTH 

562 

if  (ELECT ( 1 ) . ANO.NE.LT.O ) GO  TO  90 

SYNTH 

563 

If  (SOURCE)  ENCODE  ( M 1 o . 3 1 2 .REFER • MESS ) ) 

SYNTH 

564 

if  (.not. source)  encode  (mio.3i3«mefeR(Ness> > 

Synth 

565 

MESS  ■ MESS  . MO 

SYNTH 

566 

98 

If  (REJECT)  NUMBEP  * lH 

Synth 

567 

If  (FORWARD)  GO  TO  46 

SYNTH 

568 

ENCOOE  <M10.220,REFER(MESS)) 

SYNTH 

569 

mess  * mess  ♦ mo 

Synth 

570 

46 

If  (REVERSE)  GO  TO  47 

SYNTH 

571 

41 


If  (.NOT. FORWARD)  GO  TO  49 

SYNTH 

572 

ENCODE  (M10,222»REFER(MESS) ) 

SYNTH 

573 

MESs  * NESS  . MO 

SYNTh 

574 

If  (.NOT.HAOIATE)  GO  To  26 

SYNTH 

575 

ENCOOE  (HI 0.221  * REFER (MESS) ) 

SYNTH 

576 

MCSs  ■ MESS  * MO 

SYNTH 

577 

GO  TO  26 

SYNTH 

57fl 

MESS  * MESS-MO 

SYNTH 

579 

ENCOOE  (M10,2I2,REFER(MESSI ) 

SYNTH 

580 

MESS  3 MESS  . MO 

SYNTH 

581 

If  (.NOT. RADIATE)  GO  TO  47 

SYNTH 

582 

ENCOOE  (Ml 0,221 .REFER (MESS) ) 

SYNTH 

583 

MESs  * MESS  . MO 

SYNTH 

584 

GO  TO  26 

SYNTH 

585 

If  (.NOT. DETAIL)  GO  TO  26 

SYNTH 

586 

RATe (2)  * 1 OH A E(-E'KT) 

SYNTH 

587 

ENCOOE  (M10,203,REFER(MESS) ) 

SYNTH 

588 

MESs  « MESS  ♦ MO 

SYNTH 

589 

If  (LC.GT.0i  GO  to  7 

SYNTH 

590 

If  (K.GT.l)  WRITE  (6.202) 

SYNTH 

591 

If  (K.GT.l)  WRITE  (6.470)  DATE 

SYNTH 

592 

WHITE  (6.200) 

SYNTH 

5q3 

If  (MESS.EQ.l)  MESS  ■ M0*1 

SYNTH 

594 

REFER (MESS)  * 1M 

Synth 

595 

lc  • lc»i»(mess-d/mo 

SYNTH 

596 

If  (LC.GT.40)  LC  - 0 

SYNTH 

597 

If  (REJECT. AND. VSIG«1).EO.O.)  RATE ( 1 ) ■ lH 

SYNTH 

598 

If  (REJECT. ANO. VSIG<2) .EQ.O.)  R ATE ( 2 ) ■ 1H 

SYNTH 

599 

the  REACTION  is  STORED  IN  LlNElL).  with  BLANKS  neatly 

EMBEDDED  — 

SYNTH 

600 

WRITE  (6.201)  NUMBER.  (LINE(L).  L « 1.45),  RATE,  (REFER (L 1 , L « 

SYNTH 

601 

1 1 *MESS) 

SYNTH 

602 

If  (REJECT)  GO  TO  1 

SYNTh 

603 

NTYPE  * NO 

SYNTH 

604 

KTYpE  * K 

SYNTH 

605 

If  (ELECT(D)  ENCODE  (10.1 10. RATE  ( 1 > ) Ml.NK 

SYNTH 

606 

If  (ELECT (2) ) ENCODE  ( 1 0, 1 lO.RATE (?) > M2.NK 

SYNTH 

607 

Kf  X Kr  * UNOEF 

SYNTH 

608 

jF  (FORWARD. ANO. VSlGd)  .NE.O.)  KF  * VSlG(l) 

Synth 

609 

If  (REVERSE. ANO. VSIGI2) .NE.O.)  KR  * VSlG(2) 

SYNTH 

610 

WRITE  (LTAPE)  lhs.  Rhs.  label,  RATE.  «f.  kr,  kinetic. 

(REFER(L) . 

SYNTH 

611 

1 L * 1*5) 

synth 

612 

PHOTO  (2)  * PHOTO(2).ANO.PHOTOd) 

SYNTH 

SYNTH 

613 

614 

GENERATE  RATE  EXPRESSIONS  — 

SYNTH 

SYNTH 

615 

616 

If  (.not. REVERSE)  NKAR  * LEFT 

SYNTH 

617 

WRITE  (NTAPE.A04)  K.  (KINETIC(L).  L * 1.6) 

SYNTH 

618 

WRITE  (NTAPe.105) 

SYNTH 

619 

WRITE  (MTAPE,404»  K,  (KINETIC(L).  L * 1*6) 

SYNTH 

620 

WRITE  (MTAPe.105) 

SYNTH 

621 

If  (ELECT (1 ) ) WRITE  (NT APE, 405)  K.  Ml.  NK 

SYNTH 

622 

If  (ELECT  11))  WRITE  (NT APE .405)  K.  Ml.  NK 

SYNTH 

623 

If  (ELECT (2))  WRITE  (NTAPE.409)  K,  M2.  NK 

SYNTH 

624 

If  (ELECT (2) ) WRITE  (NTAPE.409)  K.  M2,  NK 

SYNTH 

625 

If  (ELECT ( l ) .OR.ELECT (2) ) WRITE  (NtAPE.105) 

SYNTH 

626 

If  (ELECT (I). OR. ELECT (2t»  WRITE  (MtaPE.105) 

SYNTH 

627 

If  (SOURCE)  GO  TO  65 

SYNTH 

628 

42 


C 


c 

c 

c 

c 


44 


65 


42 

9? 

*1 


58 


35 


14 


IF  (.NOT.OETAILI  00  TO  44 

WRITE  EXPRESSIONS  FOR  DETAILED  BALANCE  RELATION  — 
WRITE  (NTAPE.4081 
WRITE  INTAPE, 105| 

WRITE  (HTAPe.4081 
WRITE  (NTAPe.1051 
GO  TO  65 

IF  (.NOT. PHOTO! l)>  GO  TO  35 

IF  (PHOTO  (2)  > WRITE  INTAPE. *12|  NPhOTON 

IF  (.not. PHOTO (21  I WRITE  CnTAPE.4131  NPHOTON 

IF  (PH0T012))  WRITE  IMTAPE.612I  NPHOTON 

IF  (,N0T.PH0T0(2) 1 WRITE  IMTAPE.4131  NPHOTON 

IF  (,NoT.PHOTO(2>I  GO  TO  35 

IF  (LASER*  GO  TO  35 

LASER  * .TRUE. 

DO  41  N » 1.2 
ENCOOE  110*106. line*  N 
dO  42  L ■ 1*5 
J ■ LABEL (L, M| 

IF  (J.EO.OI  GO  TO  92 


Ll  ■ L«I 

ENCODE  <10*108. LINElLll  1 J 
CONTINUE 

I F (DETAIL*  WRITE  <HTAPE.l09|  (LINEINI.  N * 1,L» 

WRITE  (NTAPe.1091  (LINEINI*  N a 1 *L I 

IF  (SOURCE I GO  TO  35 

IF  (DETAILI  GO  TO  58 

WRITE  (NTAPe.4171 

W«ITE  (NTAPe.1051 

GO  TO  35 

WRITE  (NT APE, 4101  K*  K 
WRITE  (NTAPe.1051 
WRITE  (MTAPe.4101  K*  K 
WRITE  (MTAPe.1051 

write  (NTAPe.1001  (LL<LI.  l * i.nkari 

IF  (SOURCE I WRITE  (NTAPE.31 1 1 

I F (PHOTOUll  WRITE  (NT APE ,41 6 1 

WRITE  (NTAPe.1051 

WRITE  (NT APe.21 7 1 K 

DO  18  I * l.NTYPE 

Nl  > N2  > 0 

dO  14  L * I, MAX 

IF  (LARELIL, ll.EQ.il  Nl  * Nl ♦ 1 

IF  (LABEL (L. 2l .EO. I * N2  « N2»l 


N * N2-N1 


IT  is  UNDERSTOOD  THAT.  IF  RAD  APPEARS  ON  BOTH  SIDES  OF  THE  EQUA- 
TION. A NET  INCREASE  IN  RAOIATION  RESULTS. I 


IF  U.EO. NPhOTON. AND. N1.EQ.1.ANO.N2.EQ. ll  N * 1 
IF  (N.EO.O*  GO  TO  18 
IF  (N.gT.OI  SIGN  * 1H» 

IF  IN.LT.01  SIGN  ■ 1H- 
ENCODE  M0.20S.NSIGN)  SIGN 
N • IARSINI 
IND  . 1 

IF  (I.GT.9I  IND  « 2 


SYNTH 

629 

Synth 

630 

SYNTH 

631 

SYNTH 

632 

SYNTH 

633 

SYNTH 

634 

SYNTH 

635 

Synth 

636 

Synth 

637 

SYNTH 

638 

SYNTH 

639 

SYNTH 

640 

SYNTH 

641 

SYNTH 

642 

Synth 

643 

Synth 

644 

svnth 

645 

SYNTH 

646 

SYNTH 

647 

SYNTH 

648 

svnth 

649 

SYNTH 

650 

SYNTH 

651 

synth 

652 

SYNTH 

653 

synth 

654 

SVNTH 

655 

SYNTH 

656 

SVNTH 

657 

SYNTH 

658 

SYNTH 

659 

SYNTH 

660 

SVNTH 

661 

synth 

662 

SYNTH 

663 

SYNTH 

664 

SYNTH 

665 

SYNTH 

666 

SYNTH 

667 

SVNTH 

668 

SYNTH 

669 

SYNTH 

670 

SVNTH 

671 

Synth 

672 

SVNTH 

673 

SYNTH 

674 

SYNTH 

675 

SVNTH 

676 

SYNTH 

677 

SYNTH 

678 

SYNTH 

679 

Svnth 

680 

SYNTH 

681 

SYNTH 

682 

synth 

683 

SYNTH 

684 

SYNTH 

685 

43 


If  1I.GT.V9i  INO  » 3 

SYNTH 

686 

ENCODE  (S0.500.ro8M!  IND.  INO.  MAX 

Synth 

687 

WRITE  (NTAPg.rORM)  1.  I.  INSIGN.  J a l.N) 

SYNTH 

688 

18 

continue 

SYNTH 

689 

c 

SYNTH 

690 

ir  (.NOT. SOURCE)  00  TO  95 

SYNTH 

691 

W«lTE  (NTAP£,3o5> 

SYNTH 

692 

c 

OETermiNE  Ir  SOURCE  TERM  CORRESPONDS  To  ionization  — 

SYNTH 

693 

DO  94  L = l.MAX 

SYNTH 

694 

J 3 LABEL (L, 2) 

SYNTH 

695 

ir  ( J.EO.O)  GO  to  97 

SYNTH 

696 

ir  (J.FQ.21  GO  TO  96 

SYNTH 

697 

94 

CONTINUE 

Synth 

698 

c 

SO,.PCE  TERM  WAS  IONIZATION  — 

SYNTH 

699 

96 

WRITE  (NTAPe.310) 

SYNTH 

700 

97 

W«ITE  (NT APe. 105) 

SYNTH 

701 

WRITE  (NTAPe.309) 

SYNTH 

702 

WRITE  (NTAPe.309) 

SYNTH 

703 

G®  TO  90 

SYNTH 

7 04 

95 

NE  * NR-NL 

SYNTH 

705 

ir  (ELECT(1).OR.ELECT(2).OR.(NE.EO.O))  go  TO  90 

SYNTH 

706 

WRITE  (NTAPE.10S) 

SYNTH 

tot 

ir  (ne.gt.O)  sign  * in* 

SYNTH 

708 

ir  (NE.LT.O)  SIGN  = 1H- 

SYNTH 

709 

ir  (NE.GT.O)  WRITE  (NTaPE.424) 

SYNTH 

710 

ir  (NE.LT.O)  WRITE  (NTaPE.425) 

SYNTH 

711 

WrITE  (NTAPe.105) 

SYNTH 

712 

nE  = IaBS(NE) 

Synth 

713 

WRITE  (NTAPe.426)  (SIGN.  L ■ l.NE) 

SYNTH 

714 

90 

IE  (RAqIATE)  WRITE  (NTAPE.AlB) 

SYNTH 

715 

c 

SYNTH 

716 

c 

. SYNTH 

717 

c 

SYNTH 

718 

c 

GENERATE  JACOBIAN  — 

SYMTM 

719 

c 

synth 

720 

c 

THE  RATE  FOR  REACTION  K.  ENCODED  INTO  THE  VECTOR  LL  ABOVE.  IS  R. 

SYNTH 

721 

c 

IE  SPECIES  I OCCURS  NR  TIMES  ON  THE  RIGHT,  NL  TIMES  ON  THE  LEFT. 

SYNTH 

722 

c 

OF  REACTION  K,  THEN  the  CONTRIBUTION  OF  REACTION  K TO  NOOT(I)  is 

Synth 

723 

c 

Nl*R.  WHERE  N » (NR  - NL).  THE  FOLLOWING  LOOP  CALCULATES  THE 

SYNTH 

724 

c 

DERIVATIVE  S * OS/ON(J)  FOR  EVERT  SPECIES  J WHICH  OCCURS.  FOR 

SYNTH 

725 

c 

EVERY  SPECIES  1.  REACTION  K MAKES  A CONTRIBUTION  OF  NI*S  TO  THE 

SYNTH 

726 

c 

JACOBIAN  PHI(l.J)  a DNOOT(D/ON(J)  . 

synth 

727 

c 

synth 

728 

DO  B9  J « l.NTYPE 

SYNTH 

729 

IP  x Jp  * 0 

SYNTH 

730 

LlNE(l)  * lH( 

Synth 

731 

N*Ar  « 1 

SYNTH 

732 

M • JN  • NJ  ■ o 

Synth 

733 

83 

M * M»1 

SYNTH 

734 

IF  (M.gT.2)  GO  TO  82 

SYNTH 

735 

IF  (M.E0.2I  GO  TO  88 

synth 

736 

IF  (.NoT.FORWARO)  GO  TO  83 

SYNTH 

737 

NSIgN  x 1H 

Synth 

738 

KJ  x 1HF 

SYNTH 

739 

GO  TO  8* 

SYNTH 

740 

88 

IF  (.NOT. REVERSE)  GO  To  82 

SYNTh 

741 

NSIgN  x 1H- 

SYNTH 

742 

44 


A » ■ » *m~ * 
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KJ  « IhR 

SYNTH 

T*3 

nj  is  the  number  or  times  species 

J APPEARS  (ON  LHS  OR  RHS ) — 

SYNTH 

744 

84  NJ  « 0 

SYNTH 

745 

DO  63  L * l.HAX 

SYNTH 

746 

JL  S LABEL <l'M| 

SYNTH 

747 

If  (JL.NE.J)  GO  TO  63 

SYNTH 

748 

NJ  ■ NJ* 1 

SYNTH 

749 

L J • L 

SYNTH 

7S0 

63  CONTINUE 

SYNTH 

751 

jN  = JN  ♦ NJ 

SYNTH 

752 

If  INJ.EO.O)  go  TO  83 

SYNTH 

753 

IP  « IP*1 

SYNTH 

756 

NKAr  3 NKAR.l 

SYNTH 

755 

LInE(NKAR)  « nsign 

SYNTH 

756 

NKAr  > NKAR.l 

SYNTH 

757 

ENCODE  ( 10*306 t LINE (NKAR) ) KJ,  K 

SYNTH 

758 

If  (NJ.GT.l)  ENCOOE  C10.307*LINEINKARI » NJ,  KJ,  K 

SYNTH 

759 

DO  91  L * 1,HAX 

Synth 

760 

If  (L.EO.LJ)  GO  TO  91 

SYNTH 

761 

jt  3 label (l*n> 

SYNTH 

762 

If  (JL.EQ.O)  GO  TO  83 

SYNTH 

763 

NKAr  s NKAR.l 

SYNTH 

766 

ENCODE  00,308, LINE  I NKaRII  JL 

SYNTH 

765 

91  CONTINUE 

SYNTH 

766 

GO  TO  83 

SYNTH 

767 

82  if  UN.EQ.O)  GO  TO  89 

SYNTH 

768 

LKAr  3 NKAR  3 NKAR.l 

SYNTH 

769 

LlNF.INKARI  3 IH> 

SYNTH 

770 

If  (NHCOI.EO.O)  GO  to  68 

SYNTH 

771 

NKAR  3 NKAR.l 

SYNTH 

772 

LiNEINKARI  3 9HMBEAM/E0 

SYNTH 

773 

jP  * IP 

SYNTH 

776 

68  If  iNBUff Ol.EQ.O)  60  TO  69 

SYNTH 

775 

NKAr  3 NKAR.l 

SYNTH 

776 

LiNEINKARI  ■ NTOT 

SYNTH 

777 

jP  « Ip 

SYNTH 

778 

69  If  (JP.NE.2l  LINE0>  » LINE(LKAR) 

3 1H 

SYNTH 

779 

lkar  » 0 

SYNTH 

780 

DO  81  L * l.NKAR 

SYNTH 

781 

DECODE  (10*100, L1NE<LI>  (KaR(L1>» 

LI  * 1*10) 

SYNTH 

782 

DO  93  L2  * 1*10 

SYNTH 

783 

If  (KAR (L2I ,EO. 1H  ) GO  TO  93 

SYNTH 

786 

(.KAr  3 LKAR.l 

SYNTH 

785 

LL(LKAR»  « K1R(L2) 

SYNTH 

786 

93  CONTINUE 

SYNTH 

787 

81  CONTINUE 

SYNTH 

788 

WRITE  (MTAPe.503)  ILL  (LI*  L « l .LKAR) 

SYNTH 

789 

If  (PHOTO ( 1)1  WRITE  (NT APE, 616) 

SYNTH 

790 

WRITE  (MTAPe.105) 

SYNTH 

791 

SYNTH 

792 

DO  86  I * l.NTTPE 

SYNTH 

793 

Nl  3 N2  3 0 

SYNTH 

794 

DO  87  L * I*HAX 

Synth 

795 

If  ILABEL(L.l) .EG.!)  Nl  > Nl ♦ 1 

SYNTH 

796 

87  If  (LABEL (L«2).EQ.I>  N2  3 n2‘1 

svnth 

797 

N * N2-N1 

SYNTH 

798 

if  i I .eq.nphoton.ano.ni .EO. 1 .AND. 

N2.EQ.1)  N 3 1 

SYNTH 

799 

45 


1 


IP  (N.EO.O)  GO  TO  86 

SYNTH 

800 

IP  (N.oT.O)  sign  = 1H* 

Synth 

80 1 

IP  (N.lT.OI  SIGN  = 1H- 

SYNTH 

802 

ENCOOC  (10.205.NSIgN>  sign 

synth 

803 

N - I*BS(N) 

SYNTH 

804 

WRITE  {HTAPE,502>  I»  J.  It  Jt  (NSlGN.  L * NN) 

SYNTH 

805 

IP  (I.NE.l.OR.J.NE.l)  GO  TO  86 

SYNTH 

806 

WRITE  <NTAPEtl05» 

SYNTH 

807 

WRITE  »NTAPE*503>  (LL(L>*  L « l.LKAR) 

SYNTH 

BOB 

IF  (PHOTO (2) ) WRITE  (NT aPE<41 1 ) 

SYNTH 

809 

WRITE  (NTAPE.420)  NSIGN 

SYNTH 

810 

continue 

SYNTH 

811 

IP  (RADIATE)  WRITE  (NTAPE.419)  J,  J 

synth 

812 

WRITE  (MTAPE.I05) 

SYNTH 

813 

SYNTH 

814 

continue 

synth 

815 

SYNTH 

816 

WRITE  (NTAPEtlOSl 

SYNTH 

817 

GO  TO  10 

synth 

8|8 

WRITE  (NTAP£t423) 

SYNTH 

819 

WRITE  (8*202) 

SYNTH 

820 

WRITE  (8.470)  DATE 

SYNTH 

821 

N«Ej  » INPUT-KTYPE 

SYNTH 

822 

IP  (EXIT.AN0.LC.GT.30)  WRITE  (6,S*<IP) 

synth 

823 

WRITE  (6.302)  INPUT.  KTYPE,  KMAX,  NREJ,  NK,  NTyPE.  MAXGAS 

SYNTH 

824 

IP  (EXIT)  WRITE  (8,303) 

SYNTH 

825 

synth 

826 

EDIT  The  reactions  TO  OETERMINE  where  each  SPECIES  OCCURS  — 

Synth 

827 

synth 

828 

LC  . 0 

synth 

829 

KO(ihT  m 40 

Synth 

830 

TEST  » .PALSE. 

synth 

831 

00  50  I » 1. NTYPE 

synth 

832 

N ■ 0 

SYNTH 

833 

FlWINO  LTAPe 

synth 

834 

30  33  K * 1. KTYPE 

SYNTH 

835 

JEAD  (LTaPE)  lhs.  rhs.  label 

SYNTH 

836 

c,0  34  m « 1.2 

SYNTH 

837 

00  34  L * US 

SYNTH 

838 

'f  (LABEL  <LfM).EO.I>  GO  TO  36 

Synth 

839 

continue 

SYNTH 

840 

G°  TO  37 

synth 

841 

N ■ N*1 

synth 

842 

L INE (N)  * K 

synth 

843 

IP  (N.LT.180.AND.K.LT.KTYPE>  GO  to  33 

SYNTH 

844 

IP  (N.EO.O)  GO  TO  33 

Synth 

845 

IP  (LC.NE.O)  GO  TO  32 

SYNTH 

846 

IP  (TEST!  write  (6.202) 

SYNTH 

847 

IP  (TEST)  WRITE  (6,470)  OATE 

synth 

848 

test  » .true. 

SYNTH 

849 

WRITE  (8.300)  NTYPE 

Synth 

850 

WRITE  (6.20?) 

synth 

851 

LC  » Lc  ♦ 2 » N/20 

synth 

852 

WRITE  (8.301)  I,  GASH).  (LlNE(L).  L * 1»N> 

SYNTH 

853 

IP  (LC.GT.KOUNT)  LC  * 0 

SYNTH 

854 

N * 0 

Synth 

855 

cont INuE 

SYNTH 

856 

1 


46 
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i 


CONTINUE 

SYNTH 

8ST 

WHITE  (6.202) 

SYNTH 

8S8 

WHITE  (6,*70)  DATE 

SYNTH 

859 

SYNTH 

860 

WHITE  (NSCRTCH)  MAxGAS.  NTyPE.  KMAx.  ktype.  NKMAX.  nk,  exit 

SYNTH 

861 

WHITE  (NSCRTCH)  (GAS ( I ) , 

I ■ l.NTYPE) 

Synth 

862 

WHITE  (NSCRTCH)  (LEVI (II. 

LEV2 ( I ) , I * l ,NK ) 

SYNTH 

863 

SYNTH 

86* 

COPY  LTAPE  ONTO  NSCRTCh  - 

- 

SYNTH 

865 

rewind  ltape 

SYNTH 

866 

DO  59  K * l.KTYPE 

SYNTH 

867 

read  ((TAPE)  LHS.  RHS.  label.  RATE.  KF,  KR,  KINETIC.  COHN 

SYNTH 

868 

WHITE  (NSCRTCH)  LHS*  RHS. 

label.  Rate,  kf,  kr.  kinetic,  comm 

SYNTH 

869 

continue 

SYNTH 

870 

SYNTH 

871 

npi  * nttpe  ♦ | 

Synth 

872 

NP2  . NTYPE  ♦ 2 

SYNTH 

873 

synth 

87* 

WRITE  (NTAPE.4.VM 

SYNTH 

875 

WRITE  (NTAPE.105) 

SYNTH 

876 

WRITE  (NTAPe»*06) 

SYNTH 

877 

WRITE  (MTAPe, *06) 

SYNTH 

878 

WRITE  (NT  APE .105) 

SYNTH 

879 

WRITE  (MTAPe.105) 

SYNTH 

880 

ENCODE  (80.506.KODE)  NPI. 

NP2 

SYNTH 

881 

WRITE  (NTAPe,102)  kode 

SYNTH 

882 

WRITE  (HTAPe.102)  KODE 

SYNTH 

883 

WRITE  (NTAPe.IOS) 

SYNTH 

886 

WRITE  (HTAPe.105) 

SYNTH 

885 

WRITE  (NTAPe.508) 

SYNTH 

886 

WRITE  (HTAPe.508) 

SYNTH 

887 

ENCODE  (80.509.KOOE)  NPI. 

NP2 

SYNTH 

888 

WRITE  (NT APE, 102)  KOOE 

SYNTH 

889 

ENCODE  (80. 513, KOOE)  NP2. 

NPI,  NP2 

SYNTH 

890 

WRITE  (NTAPe.102)  KOOE 

SYNTH 

891 

WRITE  (NT APE, 6*0) 

SYNTH 

892 

WRITE  (NTAPe.IOS) 

SYNTH 

893 

ENCODE  (80.51*. KODE)  NPI. 

NPI 

SYNTH 

89* 

WRITE  (NTAPe.102)  KOOE 

SYNTH 

895 

ENCODE  (80. 515. KOOE)  NP2, 

NPI 

SYNTH 

896 

WRITE  (NT APe, 102)  KOOE 

SYNTH 

897 

WRITE  (NTAPe.IOS) 

SYNTH 

898 

SYNTH 

899 

ENCODE  (80. 511. KOOE)  NPI, 

NPI 

SYNTH 

900 

WRITE  (MTAPe, 102)  KOOE 

SYNTH 

901 

ENCODE  (80. 516. KOOE)  NPI, 

NP2 

SYNTH 

902 

WRITE  (MTAPe, 102)  KOOE 

SYNTH 

903 

ENCODE  (80.51T.K0OE)  NP2, 

NPI 

SYNTH 

90* 

WHITE  (NTAPe.102)  KOOE 

SYNTH 

905 

ENCODE  (80. 518. KOOE)  NP2, 

NP2 

SYNTH 

906 

WRITE  (MTAPE, 102)  KOOE 

SYNTH 

907 

ENCODE  (80. 519. KOOE)  NP2, 

NP2 

SYNTH 

908 

WHITE  (MTAPe, 102)  KODE 

SYNTH 

909 

WRITE  (MTAPE. **0) 

SYNTH 

910 

WRITE  (MTAPe.105) 

SYNTH 

<»11 

ENCODE  (80. 521, KOOE)  NPI, 

npi 

SYNTH 

912 

WRITE  (MTAPe, 1021  KODE 

SYNTH 

913 

47 


•i 


c 

c 

c 

c 


ENCODE  ( 80. 520, KOOE > NP1,  NP1 

SYNTH 

91* 

WRITE  (MTAPe, 102)  KOOE 

Synth 

9)5 

WRITE  (NTAPE.lOSl 

SYNTH 

916 

i 

SYNTH 

917 

WRITE  (NTAPE, *061 

SYNTH 

918 

WRITE  (NTAPE.lOSl 

SYNTH 

919 

WRITE  (MTAPe, *06) 

SYNTH 

920 

WRITE  (MTAPe. 105) 

SYNTH 

921 

ENCODE  180*207. KOOE> 

SYNTH 

922 

WRITE'  (NTAPe, 102)  kooe 

SYNTH 

9?3 

W»lTE  (NTAPE.I05) 

SYNTH 

92* 

WRITE  (MTAPe, 102)  MODE 

SYNTH 

925 

WRITE  (MTAPE, 105) 

SYNTH 

926 

N2  * 0 

SYNTH 

927 

12  Nl  = N2»l 

SYNTH 

928 

if  (Nl.GT.NTYPE)  GO  TO  19 

SYNTH 

929 

N2  s Nl«3 

SYNTH 

930 

if  (N2.GT.NTYPE)  N2  » NTYPE 

SYNTH 

931 

ENCODE  (80,206,KODE>  «L*  GAS(L),  L ■ 

N1.N2) 

SYNTH 

932 

WRITE  (NTAPE.102)  KOOE 

SYNTH 

933 

WRITE  (MTAPE, 102)  MODE 

SYNTH 

93* 

G°  TO  12 

SYNTH 

935 

19  WRITE  (NT APE* 105) 

SYNTH 

936 

WRITE  (NTAPe. *06) 

SYNTH 

937 

WRITE  (NTAPE, 105) 

SYNTH 

938 

W«lTE  (NTAPe, 490) 

SYNTH 

939 

WHITE  (NTAPE, *50) 

SYNTH 

9*0 

WHITE  (MTAPE. 105) 

SYNTH 

9*1 

WRITE  (NTAPe, *06) 

SYNTH 

9*2 

WRITE  (MTAPE. 105) 

SYNTH 

9*3 

WRITE  (MTAPe. 440) 

SYNTH 

9** 

WRITE  (MTAPe, *50) 

SYNTH 

9*5 

SYNTH 

9*6 

CONSTRUCT  SUBROUTINE  TO  COMPUTE  POPULATION  DENSITIES 

tor  the 

SYNTH 

9*7 

loner  and  upper  levels  to  be  used  in 

the  e-  kinetics 

analysis  — 

SYNTH 

9*8 

SYNTH 

9*9 

If  (NK.EQ.O)  GO  TO  75 

SYNTH 

950 

WRITE  (NTAPE. 600) 

SYNTH 

951 

WRITE  (NTAPE, 105) 

SYNTH 

952 

WRITE  (NTAPe. *06) 

SYNTH 

953 

WRITE  (NTAPe, 105) 

SYNTH 

95* 

WRITE  (NTAPE, 60*1 

SYNTH 

955 

WRITE  (NTAPe, 105) 

SYNTH 

956 

WHITE  (NTAPe, 960) 

SYNTH 

957 

WRITE  (NTAPE, A06) 

SYNTH 

958 

WRITE  (NTAPe, 105) 

SYNTH 

959 

ENCOOE  (80* 601, MODE* 

SYNTH 

960 

WRITE  (NTAPE, 102)  MODE 

SYNTH 

961 

WRITE  (NTAPe, 1051 

SYNTH 

962 

D»  80  I « l.NK 

SYNTH 

963 

ENCODE  (80, 602, KOOE)  M),  I,  LEVI (I) 

Synth 

96* 

If  (LEvl (I) .EO.O)  ENCODE  (80, 603. KOOE)  Ml,  I 

SYNTH 

965 

WRITE  (NTAPe, 102)  KOOE 

SYNTH 

966 

ENCqOE  (80, 602, KOOE*  M2,  I,  LEV2(I) 

SYNTH 

967 

If  (LEv2(D .EO.O)  ENCODE  (80.603.KODE)  M2,  I 

SYNTH 

968 

W«ITE  (NTAPe.102)  kooe 

SYNTH 

969 

AO  WRITE  (NTAPe, 105) 

SYNTH 

970 

I 1 
• 1 
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oon  non 


l 


\ 


i 

t 


WHITE  (NTAPe.  440) 

SYNTH 

971 

1 

white  intape, 4501 

SYNTH 

972 

c 

SYNTH 

973 

c 

COPY  NtAPE  onto  mtape  — 

SYNTH 

974 

I 

c 

SYNTH 

975 

75  REWIND  NTAPe 

SYNTH 

976 

*0  REAo  (nTAPE, 1021  MODE 

SYNTH 

977 

lF  <E0f(NTAPE>)  99,71 

SYNTH 

978 

71  WRITE  (HTAPE, 102)  KOOE 

SYNTH 

979 

60  TO  AO 

Synth 

980 

99  REWIND  NTAPe 

SYNTH 

981 

rewind  NTAPe 

SYNTH 

982 

c 

SYNTH 

983 

C* 

c 

Synth 

985 

loo  format  <eOAn 

SYNTH 

986 

c 

SYNTH 

987 

101  format  (2E10.3.SX.5A10) 

SYNTH 

988 

1 

c 

SYNTH 

989 

102  FORMAT  (8 A 1 0 ) 

SYNTH 

990 

c 

SYNTH 

991 

103  FORMAT  (IPE10.4I 

SYNTH 

992 

c 

SYNTH 

993 

104  FORMAT  (6X*C0MM0N  / DATA  / RATE(*l4*l.  KF(*14*>.  KR(*I4*).  VSIG(2. 

SYNTH 

994 

1*13*1.  E(*l2*)*8x) 

SYNTH 

995 

c 

SYNTH 

996 

105  FORMAT  UHC,79X> 

SYNTH 

997 

c 

SYNTH 

998 

1 04  FORMAT  (6X*E*.Il.* 

SYNTH 

999 

c 

SYNTH 

1000 

1 07  FORMAT  1 14, 16) 

SYNTH 

1001 

c 

SYNTH 

1002 

108  FORMAT  (•  ♦ E(**12»*)*1 

SYNTH 

1003 

c 

SYNTH 

1004 

1 09  FORMAT  ( A 1 0 , 5A8 . 30X > 

SYNTH 

1005 

c 

SYNTH 

1006 

110  FORMAT  (*VStG(*.H.*«*.I2«*>*l 

SYNTH 

1007 

c 

SYNTH 

1008 

200  FORMAT  I lHl/ 1 7X* SUMMARY  OF  INPUT:  REACTIONS  ANO  RATE  CONSTANTS  (S 

SYNTh 

1009 

lCC-1,  CN3/SEC,  CM6/SEC,  ...»  OR  CN2»  WITH  REFERENCES*/// 10X* (IF  A 

SYNTH 

1010 

2RAT e CONSTANT  KF  OR  KR  FOR  A BINARY  ELECTRON  COLLISION  IS  NOT  EXPL 

Synth 

1011 

3ICITL7  SPECIFIED.  IT  Win.  BE  COMPUTED  SELF*/10X*CONSISTENTLT  AS  A 

SYNTH 

1012 

4F0NCTI0N  of  e/n.  gas  composition,  and  e*citeo  level  oensities  from 

SYNTH 

1013 

5 A COUPLED  ELECTRON  ANAL YSlS. ) «//4x .* I* . 12X.*RE ACT  ION ( I) *. 34X. 

SYNTH 

1014 

6»R*TE  cONSTaNTS*1AX*RATE  REFERENCES  ANO/OR  COMMENTS*/8X*( ignored  r 

Synth 

1015 

7EACTIONS  are  NOT  NuMBERE0>*.16X.*KF(I)*8X,»kr(I)»/1X,134<1H->//> 

Synth 

1016 

c 

SYNTH 

1017 

201  FORMAT  (A8.45A1 .4X,A10,3X.A10,4X,Sa10/(84X.SA10) ) 

Synth 

1018 

c 

SYNTH 

1019 

202  FORMAT  I/1X, 1 34 ( IH-) ) 

SYNTH 

1020 

c 

SYNTH 

1021 

203  FORMAT  (‘REVERSE  RATE  IS  OBTAINED  FROM  DETAILED  BALANCE.*) 

SYNTH 

1022 

c 

SYNTH 

1023 

204  FORMAT  (‘REACTION  REJECTED  — CHARGE  CONSERVATION  VIOLATEO.*! 

SYNTH 

1024 

c 

Synth 

1025 

205  FORMAT  I1M  , A1 ,*  R*» 

Synth 

1026 

c 

synth 

1027 

49 


I 
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206  FORMAT  (*C‘4(I4.3X, A10)  > SYNTH 

C SYNTh 

207  FORMAT  C*C  the  FOLLOWING  MOLECULAR  SPECIES  (WITH  LABELS)  WERE  INC  SYNTH 

1LU0ED  — >*)  SYNTH 

c Synth 

208  FORMAT  (*c  the  following  REACTIONS  OEFINE  THE  KINETICS  — *)  SYNTH 

c SYNTH 

2 OR  FORMAT  (15)  SYNTH 

c Synth 

210  FORMAT  (‘REACTION  IGNORED  — SAME  AS  NUMBER* . I4.‘ .•>  SYNTH 

c Synth 

211  FORMAT  (‘REACTION  IGNORED  — REVERSE  OF  N0.*,l4**.*>  SYNTh 

c Synth 

212  FORMAT  (‘REACTION  IS  IGNORED  — KF  = Kr  * 0.*)  SYNTh 

c Synth 

213  FORMAT  (‘REACTION  IS  IGNORED  — MORE  ThAN*,I3,«  DIFFERENT  GAS  SPEC  SYNTH 

1IES  ARE  NOT  PERMITTED  WITH  PRESENT  DIMENSION.*)  SYNTH 

C SYNTH 

214  FORMAT  (*>  *.n*‘  SPECIES  ON  LHS  Or  RHS  NOT  PERMITTED.*)  SYNTh 

c Synth 

215  FORMAT  (‘MORE  THAN  *.I3,‘  REACTIONS  ARE  IGNORED.* ) SYNTH 

c Synth 

216  FORMAT  (‘BAD  SYNTAX  — UNRECOGNIZABLE  REACTION  IS  IGNORED.*)  SYNTH 

C SYNTh 

217  FORMAT  (11X*RATE(#I3*»  ■ R*56X)  SYNih 

c Synth 

218  FORMAT  (‘REACTION  REJECTED  ~ NO  MORE  THAN*,I3,*  REACTIONS  AREALLO  SYNTH 

1WEO  FOR  THE  COUPLED  E-  KINETICS  ANALYSIS.*)  SYNTh 

C SYNTH 

219  FORMAT  (‘WARNING  — NO  E-  CROSS  SECTION  DATA  WaS  FOUND.*)  SYNTH 

c Synth 

2?0  FORMAT  (‘FORWARD  REACTION  IS  IGNORED  — KF  * 0.*)  SYNTH 

c Synth 

221  FORMAT  (*NO  REVERSE  REACTION  ALLOWEO  FOR  RAOIATIVE  OECAY.*)  SYNTH 

C SYNTH 

2??  FORMAT  (‘REVERSE  REACTION  IS  IGNORED  — KR  = 0.‘)  SYNTH 

C SYNTH 

223  FORMAT  ( A7  *•  raTE  IS  OBTAINED  FROM  E-  KINETICS  ANALYSIS')  SYNTH 

C SYNTH 

22A  FORMAT  (‘IMPROPER  BUFFER  GAS  SPECIFICATION.*)  SYNTH 

C SYNTH 

225  FORMAT  (‘IMPROPER  HIGH  ENERGY  ELECTRON  TERMS.*)  SYNTh 

C SYNTH 

226  FORMAT  (‘THREE-BODy  HE-  COLLISION  NOT  ALLOkED.*)  SYNTH 

C SYNTH 

2?7  format  (‘This  radiative  process  not  allowed.*)  synth 

C SYNTH 

300  format  mhi/35x. ‘Summary  of  reactions  for  which  each  species  occur  synth 

IS*  NTYPE  * •« 1 3/31 X* ( this  edit  PERMITS  rapid  oeletion  of  ANY  SPECI  SYNTH 
2ES  FROM  THt  KINETIC  SYSTEM) *///7X.* I*5X*GAS ( I ) *40X*REACT IONS  CONTA  SYNTH 
3INING  r,AS  ( I ) • ) SYNTH 

C SYNTH 

301  format  (/ia,5X.Al0,5X.I4,19(*,*l4)/(28x.l4,19(*.*l4>>>  SYNTH 

c Synth 

302  FORMAT  (/4X,*0F*.U.*  INPUT  REACTIONS  scanned.*. 14**  were  retained  SYNTH 

l (maximum  allowed  »‘.Ia.‘)  ano*.I4,*  were  ignopeo  for  reasons  item  synth 
2I2ED  In  the  table. */4X, ‘OF  THOSE  RET AInEO.* 1 3.*  REQUIRE  RATES  FROM  SYNTH 
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1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 
108* 
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c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


c 


c 


c 


3 AN  E-  KINETICS  ANALYSIS.  *»13»*  SEPARATE  SPECIES  WERE  ENCOUNTERED 
A INAXImUN  allowed  **. 13. •>.*/> 


303  eORhaT  UX*ERRORS  WHICH  WERE  OETECTED  IN  PROCESSING  The  INPUT  PEAC 
it irN  Scheme  may  cause  program  termination  if  they  have  been  specif 
2{ED  TO»/AX,*BE  TREaTEO  AS  FATAL.  MODIFICATIONS  OF  THE  REACTION  SC 
3h£me.  corrections  in  reaction  syntax,  changes  IN  DIMENSION  STORAGE 
A,  0p«/AX.*A00ITI0NS  to  the  e-  cross  SECTION  file  may  be  required  t 
so  Remove  all  of  the  error  declarations.*) 

30A  FORMAT  (lUHOVOX  * OVOX  « U*S*52X> 

305  FORMAT  <11X*U  * <E2  - El)*.S6x> 


306  FORMAT  «*K*.Al»*«#»I3»*)*> 

307  FORMAT  I 1 1 » 3H.*K . A1 .« (* . 1 3,* > *) 

308  FORMAT  «4H*N0(,I2.*>*) 


309  FORMAT  C*C*5X*E-BEAM  ENERGY  DEPOSITION  — *A7XI 

310  FORMAT  <*C*79X/*C*5X*SEC0NdARY  ELECTRON  CREATION— *4SX/1 1X*SB  = SB 
1 ♦ R*58X/1 lX*U  * U ♦ UPLUS*S6X> 

3)1  FORMAT  <6X*S  * R*69X/6XFR  * R*IBEAM/EO*60X) 

312  FORMAT  (*E-  CREATION  ASSUMEO  TO  BE  OVER  ENERGY  DISTRIBUTION*) 

313  FORMAT  (*E-  CREATEO  <0R  LOST)  ASSUMEO  TO  " si  ZERO  ENERGY*) 

AOO  FORMAT  CF*DeCK.ONOTA,70X/6X*SUBROUtINE  ONOT  (N,  T.  NO.  NOOT)*A 2X) 
Aoi  FORMAT  I6X*01MENS10N  NO  1 1 ) , NOOT ( 1 ) *SOX ) 

A02  FORMAT  I6X*REAL  NO,  NTOT.  NOOT,  NOISE,  NE.  KF.  KR,  KB,  KT,  MU.  LO. 
1 IBEAM,*12X/5X*1  JBEAM,  LENGTh*60X) 


A03  FORMAT  (6XAIBEAM  * JBEAM*OEPOS I T*SHAPE ( T ) FAAX/6X AKT  « KB*TM0L*62X> 


AOA  FORMAT  (IHC,I3,2X«6A10«SX) 


A05  FORMAT  (*C  FORWARD  RATE  IS  OBTAINEO  FROM  E(-)  KINETICS  ANAL YSI 
1S*.22X/1 IX.*KFI*.I3»*)  * VSlG(*,ll»*»*«I2»*)*»48X) 

AQ6  FORMAT  I*C  *.691 1H.) ,SX) 


A07  format  I6x*00  1 I a t»N*62X/AX*l  NOOT(I)  a 0 .*62X/6XFND0T (1 > > - C 
I .GAmmA.NO ( 1 ) A*9X/6X*ALPHA  a GAIN  * HNU  a FREQ  a NOISE  a OVOX  « 0.* 
229*/6X«S8  ■ SO  a 0.0*61X1 

408  FORMAT  «*C*.5X. ‘REVERSE  RATE  IS  OBTAINED  FROM  DETAIL  BALANCE  — •» 
12TX, 

409  FORMAT  «*C  REVERSE  rate  is  obtained  from  ei-i  kinetics  ANALYSI 

1S*»22X/I 1X»*KR(*»I3»*)  a VSIGI*. II.*.*, I2,*)*.48x) 
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Synth 

1086 

Synth 
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SYNTH 
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Synth 
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SYNTH 
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SYNTH 
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SrNTH 

10Q2 

SYNTH 

1093 

Synth 

1094 

SYNTH 

1095 

SYNTH 

1096 

Synth 

1097 

SYNTH 

1098 

SYNTH 

1099 

SYNTH 

1100 

SYNTH 

1101 

Synth 

1102 

Synth 

1103 

synth 

1104 

Synth 

1105 

SYNTH 

1106 

SYNTH 

1107 

Synth 

1108 

Synth 

1109 

Synth 

1110 

SYNTH 

1111 

Synth 

1112 

synth 

1113 

SYNTH 

1114 

SYNTH 

1115 

SYNTH 

1116 

SYNTH 

1117 

SYNTH 

1118 

SYNTH 

11)9 

SYNTH 

1120 

SYNTH 

1121 

SYNTH 

1122 

SYNTH 

1123 

synth 

1124 

SYNTH 

1125 

SYNTH 

1126 

SYNTH 

1127 

synth 

1128 

SYNTH 

1129 

SYNTH 

1130 

SYNTH 

1131 

SYNTH 

1132 

SYNTH 

1133 

SYNTH 

1134 

synth 

1135 

synth 

1136 

synth 

1137 

synth 

1138 

SYNTH 

1139 

SYNTH 

1140 

SYNTH 

1141 

51 


Mo  FORMAT  C*  KR (•» 13**  > * KF(*.I3.18h)*EXP(-(E1-E2)/kT) .40X1 

C 

AH  FORMAT  (UX*GAIN  * GAIN  • R*54X) 

C 

M2  FORMAT  <*C*SX* (STIMULATED  EMISSION  PROCESS.  WITH  NO(*I**l  - INTEN/ 
1C/HNU)*17X/*C*79X> 

C 

A13  FORMAT  (*C*5X* (radiative  absorption  PROCESS.  MiTh  NO ( • 1 2* > * inten 
1/C/hNU) *16X/*C*79X ) 

C 

M4  format  (*c*sx*compute  final  expression  for  o/ot (photon  density)  — 

I»22x/»C*79X/gx#N00T(1)  > (LENGTH/CAVITY)* (NOOT ( 1 ) ♦ NOISE) *31X/*C* 
279X/6X* ABSORB  = G*IN  - ALPhA*53X/6x , XDVDX  » OEPOS I T *0VDX*55X ) 

C 

A l 5 FORMAT  (*C*5XXGAIN  > SIGMA* (N2-N1)  Is  THE  LASER  TRANSITION  GAIN* 
I 23x/*C*5X* ABSORB  * SUMKt SIGMA (K ) *NK I IS  THE  TOTAL  ABSORPTION  OF  T 
2HE  MEOIUM*10X/*C*5X*ALPHA  ■ (GAIN-ABSORB)  IS  THE  NET  GAIN  IN  THE 
3MEDIUM*22X/*C*5X*GAMMA  ■ THRESHHOLD  GAIN  COEFFICIENT  (CM-1)*31X) 

C 

A| #>  FORMAT  (6X*R  « R*C#67X) 

C 

417  FORMAT  (6X*HNU  * E0ME1  - E2> *56X/6X*FREQ  ■ hNU/H*62X) 

C 

A)fl  FORMAT  (*C*79X/*C*5X*PhOTON  NUMBER  DENSITY  INCREASED  BY  NOISE  — • 

1 3lX/*C*79X/l 1XXNOISE  * NOISE  • R*OMEGA/4./pl«AOX) 

C 

A 1 9 FORMAT  (*C*79X/*C*5X*PH0T0N  NUMBER  DENSITY  INCREASED  BY  NOISE  — • 
!31X/'*C*79X/11X*R  * R*OMEGA/A./Pi#5lX/IIX*PHm.#l2»)  * PHI(I.*l2 
a*>  . r*aax i 
C 

A?0  FORMAT  (11X*ALPHA  * ALPHA*AA,52X) 

c 

Aai  FORMAT  (6X*0ATa  kb.  EO.  H.  C.  pi  /*1PE10.3*,*1PE10.3*.*1PE10.3*.* 
118X/SX*!  *IPE10.3*»  3.1A1S9  /*49X/*C*79X ) 

C 

4??  FORMAT  (*C*5X*CAVlTY  « MIRROR  SEPARATION  (CM) *A4x/*C*5X*LENGTH  * L 
1ENGTH  Of  ACTIVE  MEOIUM  (CM)*37X/*C*5X*0MEGA  * AREA/CAVlTY**2*5lX/ 

2*C»5X*AREA  * AREA  OF  OPTICS  (CM2) *4SX/*C*5X*GAMMA  « tLOSS  ♦ LN( 
31/R I /2 1 /LENGTH* AO X/*C*79X ) 

C 

A?3  FORMAT  (6X*RATI0  « LENGTH/CAy I TY*53X/6x*00  3 I « l.N*62X/4x*3  PHI ( 
11. I)  * RATIo*PhI ( 1 . I ) *49X/*C*79X) 

C 

Aa4  FORMAT  (*C*5X*CREATI0N  of  (ZERO  ENERGY j SECONDARY  ELECTRONS— *27X) 
C 

A?S  FORMAT  (*C*5X*L0SS  OF  (ZERO  ENERGY)  SECONDARY  ELECTRONS  — «30X) 

C 

426  FORMAT  (11X*S0  = SO  *A1*  R*5BX) 

C 

A40  FORMAT  <6X*RETURN*68X) 

c 

ASO  FORMAT  (6X*EN0*7IX) 

c 

ago  format  (*c*sx*the  general  kinetics  synthesis  program  mmich  automat 
IICAllY  GEN-*11X/*C*SX*ERATE0  This  SUBROUTINE  mas  developed  by  — • 
232X/*C*79X/*C*1SX.A0(IH-) .aAx/*C*lSX*I*38x*I*2AX/*C*15x,I  DR.  MI 
3lliam  b.  lac ina*i ax* i*2ax/*c* i5x* I nomthrop  research  ano  technol 
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SYNTH 

1149 

SYNTH 
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SYNTH 
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SYNTH 
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Synth 

1157 

SYNTH 

1 15S 

SYNTH 

1159 

SYNTH 

1160 

SYNTH 

1161 

Synth 

1162 

SYNTH 

1163 

Synth 

1 164 

SYNTh 

1165 

Synth 

1166 

Synth 

1167 

SYNTH 

116B 

SYNTH 

1169 

SYNTH 

1170 

SYNTH 

1171 

SYNTH 

1172 

SYNTH 

1173 

SYNTH 

1174 

SYNTh 

1175 

SYNTH 

1176 

Synth 

1177 

SYNTH 

11 7ft 

SYNTH 

1179 

SYNTH 

llftO 

SYNTH 

Uftl 

Synth 

llft2 

SYNTH 

UA3 

SYNTH 

11R4 

SYNTh 

1185 

SYNTH 

1186 

Synth 

1187 

SYNTH 

1 1 88 

Synth 

1 189 

SYNTH 

1190 

SYNTH 

1191 

Synth 

11R2 

SYNTH 

1193 

SYNTH 

1194 

SYNTH 

1 1 95 

SYNTH 

1196 

Synth 

1197 

SYNTH 

1198 

52 


c 


c 

c 

c 

c 

c 


c 


c 


c 


c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


4<)GY  l*24X/*c*15X*l  ONC  RESEARCH  PARK*1rx*I*24X/*C*15X*I  PALO 

5S  VpROcS  PENINSULA*  CA  90274  I*24X/*C*15X*I  TEL « 1213)  377-481 

61  * EXT.  322*6x*I*24X/*C*l5xM*3ax*I*29x/*C*15X,40ClH-).24x/*C*79A) 

470  FORMAT  I/12x*GENERaLI2EO  KINETICS  SYNTHESIS  COOEl  DR.  WILLIAM  B.  L 
lAClNA.  NORTHROP  RESEARCH  ANO  TECHNOLOGY.  OATE«*All) 

500  FORMAT  C*  C 1 1X.5HN00T  C»I*»I3»*»9h)  ■ NOOK  . I*.  1 3.**  lH)  .*.  12. • A4)  *) 

50?  FORMAT  1 1 IX*PhI I»»I2t#***I2»*)  ■ PHIC*.I2.*.*.I2.*)*.10A4,6X> 

503  FORMAT  C6*»*R  ■ • .62A1 ,8X/ (5X ,•»* 1 OX. 56*1 ,8X ) ) 

So*  FORMAT  I6X*OIMENSION  PhI(N.I).  NO ( 1 ) *49X) 

505  FORMAT  C*C*5X*THIS  SUBROUTINE  WAS  SYNThESIZEO  BY  EDITING  AN  INPUT 
lFlLE  OF  SYM-»iox/*C#5x»BOLIC  REACTIONS  WHICH  DEFINE  A COUPLEO  SVST 
2E*  OF  ELECTRON  AND»13X/*C*5X«M0LECuLAR  KINETICS  EQUATIONS.  IT  RET 
3URNS  ThE  JACOBIAN  MATRIX. *1 1X/*C*79X/*C*20X.*PhI < I *J>  * DtNDOTCIll 
A/0 1 NO  C J) 1*29X/*C*79X/*C*5X* WHERE  I.J  * 1 .2.3. . . .NTYPE.  N IS  THE  0 
SIHENSION  DECLARATOR  FOR  PHI *8x/*C*5X* IN  THE  CALLING  PROGRAM.  THE 
6R*Te  CONSTANTS  KF  ANO  KR  HAVE  UNI Ts*iOx/*C*5X*OF  CM2*  SEC-1*  CM3/S 
7EC*  CM6/SEC.  ...  AS  APPR0PRIATE.**22X) 

506  FORMAT  C*C*5X ‘EXTERNAL  CIRCUIT  EQUATIONS  <0  * N0C‘.I2.‘).  AND  I # 
1N0(*,I2,*)I  — *1SX» 

507  FORMAT  !6X*D0  1 I * 1 ,N‘.62X/6X*00  1 J * 1 ,N‘.62X/4X*1  PHI C I.J)  * 
10.‘6lX/6X«*HI (1.1)  ■ - C#GAMMa*5*X> 

508  format  C6X*NE  ■ N0( 2) *64X/6X‘ IF  (NE.EQ.O.)  NE  * 1 .0‘52X/6X*CONDUCT 

1 * NE*E0*HU*56X/6X‘RD  « 0/AREA/C0N0UCT*5Sx/*C*79X/6X*IF  CLO.EQ.O.l 

2 Go  TO  2‘S3x> 

509  FORMAT  C6X*DQ0T  * N00T(*I2‘>  * N0(*I2‘>*> 


510  FORMAT  C*‘DECK,JAC0B*69X/6X‘SURR0UtINE  JACOB  CN.  T.  NO.  PHI)**2X) 


5| 1 FORMAT  C6X#PHI (‘»I2*»‘12‘)  * 0.*59x) 


512  FORMAT  (6X*C0MM0N  / CONST  / NTOT . TMOL.  FREQ.  HNU*36X/6X*C0MM0N  / 
IDIScH  / LO.  CO.  RO,  HU,  ARE*.  f)‘ 34  x/6X‘ COMMON  / SOURCE  / UPLUS.  JB 
2E*M,  OvDX.  DEPOSIT,  ENERGY.  SB.  SOM 3X/6X*C0MM0N  / GAINS  / ALPHA. 
3GamMA.  GAIN,  ABSORB,  OMEGA.  LENGTH,  C*V ITY*8X/‘C‘ 79x ) 

51 3 FORMAT  <6X‘D10T  « n00T<‘I2‘>  * I-NO (• 12*1 /CO  - CRO  • RO)‘lH‘,‘NO<‘ 
ll2«) )/l0*22x) 

5)4  FORMAT  C4X*2  OQOT  » NDOT C‘ I2‘ ) ■ - NO < • 12‘ ) /CO/ CRO  » Rn>‘) 

515  FORMAT  C6X‘CURRENT  » N0C‘I2‘>  « N00TC*I2‘>‘) 

516  FORMAT  C6X‘PHH‘I2*»*I2*>  * 1.0*) 


5)7  FORMAT  <6X*PHI (*I2*»*I2*I 


-l./LO/CO*52X| 


SIR  FORMAT  C6X*PHI (*I2*»*I2*) 


-CRO  ♦ RO>/LO*48X) 


Synth 

1 199 

Synth 

1200 

Synth 

1201 

SYNTH 

1202 

Synth 

1203 

SYNTH 

1204 

Synth 

1205 

synth 

1206 

Synth 

1207 

SYNTH 

120R 

Synth 

1209 

Synth 

1210 

Synth 

1211 

Synth 

1212 

Synth 

1213 

SYNTH 

1214 

Synth 

1215 

SYNTH 

1216 

Synth 

1217 

synth 

1218 

synth 

1219 

synth 

1220 

synth 

1221 

synth 

1222 

synth 

1223 

synth 

1224 

Synth 

1225 

synth 

1226 

SYNTH 

1227 

SYNTH 

1228 

SYNTH 

1229 

synth 

1230 

Synth 

1231 

synth 

1232 

Synth 

1233 

synth 

1234 

synth 

1235 

SYNTH 

1236 

SYNTH 

1237 

SYNTH 

1238 

Synth 

1239 

synth 

1240 

SYNTH 

1241 

SYNTH 

1242 

synth 

1243 

SYNTH 

1244 

Synth 

1245 

synth 

1246 

synth 

1247 

SYNTH 

1248 

SYNTH 

1249 

synth 

1250 

Synth 

1251 

SYNTH 

1252 

synth 

1253 

synth 

1254 

SYNTH 

1255 

53 


c 

SYNTH 

1256 

519  FORMAT 

(6X*PHI (*I2*»  2)  * NO<*I2*>MH*,*RD/NE/LO*46x) 

Synth 

1257 

c 

SYNTH 

1250 

5?n  format 

C6X*PHl  CM2*.  2)  * nO(*I2W)»oIDO,RO/NE/(RO  ♦ Rd>*! 

SYNTH 

1259 

c 

SYNTH 

1260 

521  format 

(4X*2  PHI <*I2*.*I2*)  « OIDQ  « - I./CO/IRO  ♦ RO ) • 1 

SYNTH 

1261 

c 

Synth 

1262 

bOO  FORMAT 

( A *OECK » LEVELS AbSX/bX'SUflROUT INe  LEVELS  (Nl.  N?.  NO) *44X1 

SYNTH 

1263 

c 

SYNTH 

1264 

6(1 1 FORMAT 

(6X.*REAL  NKl),  N2(l>,  N0<1)*> 

Synth 

1265 

c 

SYNTH 

1266 

60?  format 

(6X,*N*,I1»*(*.12.*)  » NO  C*«I2**)*) 

SYNTH 

1267 

c 

Synth 

1260 

603  FORMAT 

<6X,*N*,I1.*(*»I2,*)  » 0.*! 

SYNTH 

1269 

c 

Synth 

1270 

604  FORMAT 

ec  this  subroutine  determines  the  population  densities 

Synth 

1271 

1 Nlcu 

, N? ( I ) *1 OX/*C*5X*OF  the  (LOWER  AN0  UPPER!  LEVELS  INVOLVED  I 

SYNTH 

127? 

2N  iHC 

iTH  INELASTIC*13x/*C*5x*SCATTERING  process  incluoeo  IN  The  c 

Synth 

1273 

200PLED 

E-  KINETICS  ANALYSIS. * 1 OX ) 

Synth 

1274 

c 

Synth 

1275 

605  FORMAT 

(*C*5X*THIS  SUBROUTINE  WAS  SYNTHESIZED  BY  EDITING  AN  INPUT 

synth 

1276 

1FILE  OF  STM-*1OX/*C*5X*0OLIC  REACTIONS  WHICH  DEFINE  A COUPLED  SYST 

SYNTH 

1277 

2EM  OF 

ELECTRON  AND*13X/*C*5X*M0LECULAR  kinetics,  it  returns  the  ra 

Synth 

1278 

3TES  NOOTCI)  * (D/0T)N0(I).*llx/*C*5X*I  « 1.2....NTVPE  (CM-3/SEC1. 

SYNTH 

1279 

ARATf  CONSTANTS  KF  and  KR  have  UNlTs*10x/*C*5X«OF  CM2*  SEC-1.  CN3/S 

SYNTH 

1280 

SEC*  CM6/SEC,  ...  AS  APPROPRIATE. •«?2X) 

SYNTH 

1201 

c 

SYNTH 

1202 

c 

Synth 

1204 

return 

SYNTH 

1285 

eno 

SYNTH 

1286 

c 

c 

SUBROUTINE  analyze  (NTVPE.  KTYPE.  RATE,  NT IME*  RPCT,  FLAG.  PMAx, 

1 GAS,  PCT , KAPT ION,  LTAPE,  MTAPE.  NTAPE> 

analyze 

analyze 

ANALYZE 

ANALYZE 

2 

3 

4 

5 

c 

analyze 

6 

C 

THIS  subroutine  analyzes  the  contributions  of  all  reactions  to 

analyze 

7 

c 

every  SPECIES,  and  prints  out  diagnostics  SUMMARIZING  the  sensi- 

ANALYZE 

8 

c 

tIvity  of  each  reaction  to  the  total  calculation. 

analyze 

9 

c 

Q 

analyze 

ANAI  Y7£ 

10 

u 

c 

ANALYZE 

12 

DIMENSION  RaTEID*  NT IME  < 1 ) * KAPTI0NI4),  KOOE(IO),  PMax ( 1 ) . 

analyze 

13 

1 RPCT ( 1 ! * FLAGIll*  GAS  Cl! 

ANALYZE 

14 

c 

analyze 

15 

LOGICAL  flag,  test 

analyze 

16 

c 

analyze 

17 

rewind  ltape 

analyze 

18 

rewind  MTAPE 

analyze 

10 

REwinO  ntape 

analyze 

20 

DO  8 I « l.NTYPE 

analyze 

21 

8 PMAxtl)  a 0. 

analyze 

22 

DO  1 K * 1 .KTyPE 

analyze 

23 

R a RATE (K 1 

ANALYZE 

24 

REAn  (mTAPE!  (NT iMf (L 1 , L a l.NTYPE) 

ANALYZE 

25 

do  2 I • l.NTYPE 

analyze 

26 

RPCT(I)  « o. 

analyze 

27 

IF  (R.EO.O.)  GO  TO  2 

analyze 

28 

Nl  a NT IME ( I ) 

analyze 

29 

IF  INI.EQ.Ol  GO  TO  2 

Analyze 

30 

RPCT(I|  ■ NI*R 

ANALYZE 

31 

PASS  > ABS (RPCT (11) 

analyze 

32 

IF  (PABS.GT .PMAX ( 1 1 1 PMAX ( I 1 a PASS 

ANALYZE 

33 

2 CONTINUE 

analyze 

34 

1 WRITE  (NTAPe)  (RPCTIL),  L a l.NTYPE! 

analyze 

35 

REWINO  NTAPE 

ANALYZE 

36 

54 


00  3 K ■ l.KTyPE 
PABs  x 0. 

REAo  (nTAPE)  (RPcT(L).  L • 1 .NTYPE) 

00  A l ■ 1 .NTYPE 

IF  (PMAX(l).EQ.O.)  00  TO  A 

PERCENT  ■ RPCT(I)  » 100.*RPCT ( i I /PMAX ( I > 

PERCENT  ■ AflS (PERCENT! 

IF  (PERCENT. GT.PCT)  FLAG  DO  ■ .FALSE. 

IF  (PERCENT. GT.PABS)  PASS  ■ PERCENT 

A continue 

3 W«lTE  (LTAPE)  (RPCT(L),  L * l.NTYPEI.  PABS 

NA  * I 

5 MB  * NA»9 

IF  (NB.GT . NTYPE > NB  « NTYPE 
NUAsH  x 37  ♦ H • (NB”NA| 

NX  x ( 1 38-NO ASH) /2 
REWIND  LTAPE 
TEST  ■ .FALSE. 

00  6 K ■ 1 .KTYPE 
Kl  » K.l 

IF  (Kl.NE.SO* (K 1/50 • ) GO  TO  9 
IF  (KI.EO.O)  GO  TO  7 
WRITE  (6*100!  NX*  NDASH 
IF  (TEST!  WRITE  (6,10l!  PCT 
7 WRITE  (6.102!  KAPTlON.  NX*  <GAS(1)*  I * NA.NB) 

WHITE  (6*100!  NX*  NOASH 
TEST  * .FALSE. 

9 REAo  (LTAPE!  IRPCT(LI*  L • l.NTYPE).  PCTMAX 
R * RATE(K) 

NFLaG  * 1M 

IF  (FLAG (K ) I NFLAG  * 1H* 

IF  (FL AG ( K ) ) TEST  » .TRUE. 

00  10  I » NA.NB 
ll  x 1_NA»1 
K°Oe ( I 1 ! * 1H 

IF  (RPcT(l) .EQ.O.)  GO  TO  10 
ENCOOE  (10* lOA.KOOE (III!  RPCT(H 
10  CONTINUE 

6 WHITE  (6.1031  NX.  NFLAg.  K.  R.  PCTMAX*  (KOOEdl*  1 * Ml) 
WHITE  (6*100!  NX.  NDASH 

IF  (TEST)  WRITE  (6.101)  PCT 
N*  x NB»1 

IF  (NA.LE. NTYPE!  GO  TO  5 


100  FORMAT  (/>X,x(1H-I/I 


FORMAT  STATEMENTS 


101  FORMAT  (18X<*  THIS  REACTION  CONTRIBUTES  LESS  THAN  PF3.0*  » TO  ALL 
ISPEciES  THROUGHOUT  THE  ENTIRE  CALCULATION  SO  FAR*) 

102  FORMAT  ( 1HI «A7x*AA10«/29X*PERCENTAgE  CONTRIBUTION  OF  REACTION  K TO 
1 ON ( I )/0T • EXPRESSED  (FOR  EACH  SPECIES) */33X*AS  A PERCENTAGE  OF  TM 
2E  maximum  rate  occuRINg  for  all  reactions  incluoed*//*x.*x*k**x. 
3*R Ate  I K ) *4X«M ax  S*5X • 8 ( 1 X • A 1 0 ) * A 1 0 , A7 ! 

163  FORMAT  (*X*A1*IA* 1PE12.3.0PF8. 1 .lOllX.AlO!) 

10A  FORMAT  IF10.3) 


RETURN 

eno 


ANALYZE 

37 

ANALYZE 

38 

ANALYZE 

39 

ANALYZE 

40 

analyze 

41 

analyze 

42 

ANALYZE 

43 

ANALYZE 

44 

ANALYZE 

45 

analyze 

46 

ANALYZE 

47 

ANALYZE 

48 

ANALYZE 

49 

ANALYZE 

SO 

ANALYZE 

51 

ANALYZE 

52 

ANALYZE 

53 

ANALYZE 

54 

ANALYZE 

55 

ANALYZE 

56 

ANALYZE 

57 

analyze 

58 

ANALYZE 

59 

ANALYZE 

60 

ANALYZE 

61 

ANALYZE 

62 

analyze 

63 

analyze 

64 

analyze 

65 

ANALYZE 

66 

analyze 

67 

analyze 

68 

analyze 

69 

analyze 

70 

analyze 

71 

analyze 

72 

ANALYZE 

73 

analyze 

74 

analyze 

75 

ANALYZE 

76 

ANALYZE 

77 

analyze 

78 

analyze 

79 

analyze 

80 

analyze 

81 

ANALYZE 

82 

analyze 

83 

analyze 

84 

analyze 

85 

analyze 

86 

ANALYZE 

*7 

analyze 

88 

ANALYZE 

89 

analyze 

90 

ANALYZE 

91 

ANALYZE 

92 

ANALYZE 

93 

analyze 

94 

ANALYZE 

95 

ANALYZE 

96 

analyze 

97 

analyze 

98 

ANALYZE 

99 

analyze 

loo 

analyze 

lot 

analyze 

102 

55 


DEKODE 

OEKODE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

DEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKODE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

DEKOOE 

OEKOOE 

OEKODE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

DEKOOE 

OEKOOE 

DEKOOE 

OEKOOE 

DEKODE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKOOE 

DEKOOE 

OEKOOE 

OEKODE 

OEKOOE 

OEKoOE 

OEKOOE 

OEKODE 

OEKOOE 

OEKODE 

OEKODE 

OEKOOE 

OEKOOE 

OEKOOE 

OEKoOE 

OEKOOE 

OEKOOE 


SUBROUTINE  DEKOOE  (NAME*  IMAGE*  LHS.  RHS*  LABEL*  GAS*  NSIZE* 
I NTVpE*  LONG) 


DIMENSION  NaME(1>*  IMAGE!!)*  GAS(S,2).  LABEL (5.2) « KAROO) 
INTEGER  LHS,  RHS*  GAS*  E*  HNU 
E » *HEl-> 

HN(i  ■ JHMNU 
NO  ■ NTVPE 
00  1 L • 1*5 
00  1 M » 1*2 
GAS(L.m)  « IM 
I LABEL <L*N)  ■ 0 


I * J » N * MM  ■ 0 

2 IP  (I.eO.LONG)  GO  TO  A 
I ■ I»1 

IP  (IMAGE (I) .EO.IH  ) GO  TO  2 
IP  IIMaGEOI.NE.DV)  GO  TO  3 
MM  > l 
GO  TO  A 

3 IP  (IMAGE(I).NE.IH.)  GO  TO  6 

IP  (IMaGE(I*1).E0.1H).OR.IMAGE(I*1).EU.1M*)  go  TO  6 


GO  TO  A 

6 IP  U.eO.NSiZE)  GO  TO  2 
J « J*1 

KAR(J)  « IMAGE! I) 

GO  TO  2 

A IP  (J.EO.O)  GO  TO  99 
IP  (M.gT.2)  GO  TO  99 

ENCODE  (10.100.NGAS)  ( K AR I L ) * L ■ l.J) 
100  FORMAT  (10A1) 

IP  (NGAS.EQ.1HE.0R.NGAS.E0.2HE-)  ngas 


N * N*1 

gAS(N.M)  ■ NGAS 
IF  (NGAS. EO. HNU>  GO  TO  7 
IF  (NO.EO.O)  GO  TO  9 
oo  5 L * 1 »N0 

IF  (NGaS.NE.NaME (L) I GO  TO  S 
LABEL (N*M>  • L 
GO  TO  7 
5 CONTINUE 
9 NO  * NO* 1 

NAME (N0>  * NGAS 
LABEL (N*M)  a NO 

7 M » M*MM 

IF  (MM. £0.1)  N * 0 
GO  TO  2 
99  NTYPE  * NO 

GENERATE  CHECKSUM  IDENTIFIERS  — 

Kl  a K2  ■ K1SQ  a K2SQ  a 0 

00  H L • 1*5 

Kl  a Kl  • LABEL IL*1> 

K2  a K?  ♦ LABEL (L. 2) 

K 1 SO  a K1S0  • LABEL(L*|)*LABEL(L.1) 

8 K2Sq  a K2SQ  * LABEL (L.2) *LABEL (L .2) 
ENCOOE  (10*110, LHS)  Kl,  KISQ 
ENCODE  ( 10, 110.RHS)  K2,  K2S0 

1)0  FORMAT  ( IA* 16) 

RETURN 

eno 


non  o r>  o o n n n n n n n c>  n ct  n nn  n n 


f 


~3S7 


SUBROUTINE  UPDATE  (INFILE.  NTAPE.  NSCRTCH.  LIST#  DATE) 

UPDATE 

UPOATE 

UPDATE 

2 

3 

4 

UPDATE 

5 

this  subroutine  searches  two  sources— an  input  file  tape  »infile» 

UPOATE 

6 

ANO/OR  INPUT  CARO  data  < IF  HOOIFy  « TRuE» — TO  generate  an  updated 

update 

7 

file  on  tape  •ntape*.  which  contains  all  of  the  data  of  the  file 

UPOATE 

8 

•InFILE*  NOdIFIED  WITH  ADDITIONS  Or  revisions  defined  by  the  card 

UPDATE 

9 

OATa.  the  file  on  tape  *ntape»  can  be  catalogued  as  a permanent 

UPOATE 

10 

FlLEt  if  DESIRED.  FOR  FUTURE  USE  AS  THE  INPUT  LIBRARY.  THE  FILE 

UPDATE 

11 

GENERATED  on  NTAPE  CONTAINS  OATES  OF  ENTRY  FOR  ALL  CROSS  SECTIONS 

UPDATE 

12 

WHICH  HAVE  been  catalogued,  if  list  « TRUE.  The  contents  OF  The 

UPDATE 

13 

uPOATED  CROSS  section  file  »ntape*  are  printed  out. 

UPOATE 

1* 

UPOATE 

15 

UPOATE 

L6 

UPOATE 

17 

DIMENSION  IMAGE(B).  KINETICI60).  NAMEdOQ),  LABEL(S,2),  GAS<5.2> 

UPDATE 

18 

INTEGER  blank.  LHS1 . RHS1 * LHS2,  RhS2»  DATE*  GAS 

UPDATE 

19 

logical  LIST.  MOOIFT.  ENDFILE 

UPDATE 

20 

UPDATE 

21 

C*LL  SECOND  (TO) 

UPOATE 

22 

nttpe  > 0 

UPOATE 

23 

NUMBERS  * 10HI23A56T890 

UPDATE 

24 

BLANK  x 1H 

UPDATE 

25 

rewind  ntape 

UPDATE 

26 

ENOFILE  » .FALSE. 

UPOATE 

27 

input  » INFILE 

UPDATE 

28 

UPOATE 

29 

GENERATE  or  modify  electron  CROSS  SECTION  data  file  — 

UPDATE 

30 

UPDATE 

31 

modify  ■ .true. 

UPDATE 

32 

read  (5.100) 

UPDATE 

33 

IF  (EOF (5) ) 10,20 

UPDATE 

34 

10 

modify  ■ .false. 

UPDATE 

35 

20 

rewind  s 

update 

36 

REWIND  input 

UPOATE 

37 

read  (input, ioo) 

UPDATE 

38 

If  (EOF (INPUT))  1,2 

UPOATE 

39 

1 

INPUT  * 0 

UPDATE 

40 

GO  TO  3 

UPOATE 

41 

? 

BACKSPACE  input 

UPDATE 

42 

3 

if  (modify. and. input. Co. infilei  go  to  33 

UPOATE 

43 

NFILE  * INPUT 

UPDATE 

44 

IF  ( INPUT. EO. INFILE)  GO  TO  *6 

UPDATE 

45 

NFILE  * s 

UPDATE 

46 

IF  ( .not. MODIFY)  RETURN 

UPOATE 

47 

UPDATE 

48 

THE  FOLLOWING  SECTION  IS  USEO  WITH  ONLY  ONE  INPUT  DATA  SOURCE  — 

UPDATE 

49 

UPOATE 

50 

*6 

READ  (nFILE. 1201  IMAGE 

UPDATE 

51 

IF  (EOF(NFILEI)  AS, A 

UPOATE 

52 

IF  ( IMAGE <0) .EO. BLANK)  IMAGE (SI  * DATE 

UPDATE 

53 

WRITE  (NTAPe. 1201  inage 

UPDATE 

54 

READ  (NFILE. 120)  IMAGE 

UPOATE 

55 

WRITE  (NTAPE. 120)  IMAGE 

UPDATE 

56 

nREc  ■ o 

UPDATE 

57 

*7 

READ  InFILE, 120)  IMAGE 

UPOATE 

58 

57 


¥»ITE  (NTAPe, 120)  IMAGE 

UPOATE 

59 

IF  ( IMAGE <1 ) .NE. BLANK)  GO  TO  U 

UPOATE 

60 

IF  (NREC.GT.O)  GO  TO  46 

UPDATE 

61 

backspace  ntape 

UPDATE 

62 

BACKSPACE  NTAPE 

UPDATE 

63 

backspace  ntape 

UPDATE 

64 

GO  TO  46 

UPDATE 

65 

u 

NREc  * 1 

UPOATE 

66 

READ  (NFILE, 120)  IMAGE 

UPDATE 

67 

WRITE  INTAPE, 1201  IMAGE 

UPDATE 

68 

GO  TO  47 

UPDATE 

69 

c 

UPOATE 

70 

c 

T*E  FOLLOWING  SECTION  OCCURS  WHEN  DATA  IS  ASSEMBLED  FROM  BOTH  A 

UPOATE 

71 

c 

tape  and  card  input  file  — 

UPDATE 

72 

c 

UPOATE 

73 

33 

IF  (ENqFILE)  GO  TO  44 

UPOATE 

74 

REA0  {INPUT, 150)  KINETIC 

UPDATE 

75 

IF  (EOF  < INPUT ) ) 6*7 

UPOATE 

76 

7 

CALL  DEKOOE  (NAME*  KINETIC,  LHSlt  RHSl • LABEL*  GAS*  10.  NTVPE*  60) 

UPOATE 

77 

GO  TO  37 

UPDATE 

78 

A 

EMDFILE  » .TRUE. 

UPDATE 

79 

INPUT  ■ 5 

UPDATE  ' 

80 

NFlLE  « s 

UPDATE 

81 

REWIND  nfile 

UPOATE 

82 

44 

rEAo  (nfile, 120)  IMAGE 

UPDATE 

83 

IF  (EOFCNFILE))  45,8 

UPDATE 

84 

8 

IMAGE «8)  * DATE 

UPOATE 

85 

backspace  nfile 

UPDATE 

86 

read  (NFILE, 150)  KINETIC 

UPDATE 

87 

CALL  DEKOOE  (NAME*  KINETIC,  LHS1*  RHSl,  LABEL*  GAS*  10.  NTYPE*  60) 

UPOATE 

88 

c 

UPOATE 

89 

c 

C*ECK  TAPEJ  TO  OETERMINE  WHETHER  THE  PROCESS  ENCOUNTERED  ON  CARD 

UPDATE 

90 

c 

input  was  previously  used  to  update  tape  file  data  — 

UPOATE 

91 

c 

UPDATE 

92 

rewind  nscrtch 

UPDATE 

93 

43 

read  (NSCRTCH)  LHS2*  RHS2 

UPDATE 

94 

IF  (EOF (NSCRTCH) ) 34. S 

UPDATE 

95 

5 

IF  (LHS2.NE.LHS1.0R.RHS2.NE.RHS1)  GO  To  43 

UPDATE 

96 

REAo  (INPUT, 120) 

UPOATE 

97 

GO  TO  4 I 

UPDATE 

98 

37 

NFILE  ■ INPUT 

UPOATE 

99 

backspace  nfile 

UPDATE 

loo 

REAo  (NFILE, 120)  IMAGE 

UPOATE 

101 

c 

UPDATE 

102 

c 

CMtCK  C*ROS  TO  SEE  IF  A CROSS  SECTION  PRESENTED  ON  THE  TAPE  FILE 

UPDATE 

103 

c 

should  be  superceded  by  card  input  data  (upoate)  ~ 

UPDATE 

104 

c 

UPDATE 

105 

REWinO  s 

UPOATE 

106 

36  PCAo  <5* 150)  KINETIC 

UPOATE 

107 

if  (EOF (S) ) 34,9 

UPOATE 

108 

9 

CALL  DEKOOE  (NAME.  KINETIC.  LHS2*  RHS2,  LABEL*  GAS.  10.  NTYPE.  60) 

UPOATE 

109 

IF  (LHS2.NE.LHS1.0R.RHS2.NE.RHS1)  GO  To  35 

UPOATE 

110 

c 

UPOATE 

111 

c 

THE  PROCESS  DEFINED  ON  TAPE  FILE  HAS  BEEN  FOUND  IN  THE  CARD  INPUT. 

UPDATE 

112 

c 

SO  IT  IS  REPLACED  — 

UPOATE 

113 

c 

UPOATE 

114 

NFlLE  * 5 

UPOATE 

115 

uuu  uuu  uuuuuu 


> 


BACKSPACE  5 

UPDATE 

116 

rEAo  (5* 120)  image 

UPDATE 

117 

I*AgE<B>  ■ OATE 

UPDATE 

118 

WRITE  (NSCRTCH)  LHS2*  RHS2 

UPOATE 

119 

RE*n  C INPUT,  1201 

UPOATE 

1?0 

GO  TO  3* 

UPDATE 

121 

UPDATE 

122 

35 

REAo  (5*120) 

UPDATE 

123 

31 

REAq  15*120)  KARO 

UPDATE 

124 

IF  (KARO.EO. BLANK)  GO  TO  36 

UPDATE 

125 

REAo  (5*120) 

UPDATE 

126 

GO  TO  31 

UPDATE 

127 

UPDATE 

128 

COPY  CROSS  SECTION  DATA  ONTO  TAPE  NTAPE  — 

UPOATE 

129 

UPDATE 

130 

3* 

WHITE  (NTAPE, 120)  image 

UPOATE 

131 

REAo  (NF1LE.120)  IMAGE 

UPOATE 

132 

white  (NTAPe, 120)  IMAGE 

UPDATE 

133 

NHEc  » 0 

UPOATE 

134 

32 

rEAo  (mF ILE. 120 ) IMAGE 

UPOATE 

135 

WHITE  (NTAPe, 120)  image 

UPOATE 

136 

IF  ( IMAGE ( 1 > .NE. BLANK)  GO  TO  13 

UPDATE 

1 37 

IF  (NREC.GT.0)  GO  TO  39 

UPDATE 

138 

BACKSPACE  NTAPE 

UPDATE 

139 

BACKSPACE  NTAPE 

UPDATE 

140 

backspace  ntape 

update 

141 

GO  TO  39 

UPDATE 

142 

13 

N«Ec  ■ 1 

UPDATE 

U3 

RE An  (NF ILE. 120)  IMAGE 

UPDATE 

144 

WHITE  (NTAPE, 120)  IMAGE 

UPOATE 

145 

GO  TO  32 

UPOATE 

146 

39 

IF  (NFlLE.EO. INPUT)  GO  TO  33 

UPOATE 

147 

UPDATE 

1 48 

e**aust  old  data  for  this  process  — 

UPDATE 

149 

UPDATE 

150 

*1 

READ  (INPUT, 120)  Image 

UPDATE 

151 

IF  (IMaGEU)  ,EQ. BLANK)  GO  TO  33 

UPDATE 

152 

REAo  (INPUT, 120) 

UPOATE 

153 

GO  TO  4l 

UPOATE 

154 

UPOATE 

155 

IF  ELECTRON  cross  section  oat a contained 

MODIFICATIONS  BY  CARD 

UPDATE 

156 

iNPyT.  A NEW  FILE  IS  GENERATED.  THE  CONTENTS  OF  THE  UPDATED  FILE 

UPOATE 

157 

(WHICH  MAY  BE  CATALOGUED  FOR  FUTURE  USE> 

ARE  COPIE0  ONTO  OUTPUT 

UPDATE 

158 

IF  LIST  IS  SPECIFIED  TO  BE  TRUE. 

UPDATE 

159 

UPDATE 

160 

45 

endfile  ntape 

UPOATE 

161 

rewind  nschtcm 

UPOATE 

162 

call  second  (time) 

UPOATE 

163 

T IMF  * TIME-TO 

UPOATE 

164 

IF  (MODIFY)  WRITE  (6.160)  TIME 

UPDATE 

165 

IF  (.NOT. LIST)  GO  TO  99 

UPOATE 

166 

IF  (NFlLE.EO. INFILE)  GO  TO  99 

UPDATE 

167 

rewind  ntape 

UPDATE 

168 

ll  « line  * 0 

UPOATE 

169 

23 

REAo  (NTAPE. 120)  image 

UPDATE 

170 

IF  (EOF(NTAPE))  11,12 

UPDATE 

171 

12 

IF  (LIuE.NE.O)  GO  TO  25 

UPOATE 

172 

59 


{ 


I 


IF  (LL.EQ.O)  GO  TO  26 

UPDATE 

173 

WRITE  (6*190)  (NUMBERS.  I * l.A).  (I*  I 

» 1.8) 

UPDATE 

174 

WRITE  (6.180) 

UPDATE 

175 

26 

WRITE  (6.170)  NTAPE.  (I.  I ■ 1.8).  (NUMBERS.  I * 1.8) 

UPOATE 

176 

25  LINE  ■ LINE.l 

UPOATE 

177 

LC  * LL»1 

UPDATE 

178 

WRITE  (6,140)  LL.  IMAGE 

UPDATE 

179 

IF  (LINE. EQ. 40)  LINE  « 0 

UPDATE 

1 80 

G«  TO  23 

update 

181 

n 

WRITE  (6.190)  (NUMBERS.  I * 1.8).  (I.  I 

■ 1.8) 

UPOATE 

182 

c 

update 

183 

c 

c 

UPDATE 

185 

loo 

FORMAT  (AlO) 

UPDATE 

186 

c 

UPOATE 

187 

120 

FORMAT  (BAlO) 

UPOATE 

188 

c 

UPOATE 

189 

uo 

FORMAT  (20X,I5,5X.8A1Q| 

UPOATE 

190 

c 

UPDATE 

191 

iso 

FORMAT  (BOAl) 

UPOATE 

192 

c 

UPOATE 

193 

160 

FORMAT  (///33x*ELEcTR0N  CROSS  SECTION  FILE  WAS  UPDATED.  TIME  RE8U 

UPDATE 

194 

llREn  WAS*FS.l*  CP  SEC.*/33X*C0NSULT  DAY 

FILE  To  DETERMINE  WHETHER 

UPDATE 

145 

2the  updated  file  mas  Recatalogued.*) 

UPOATE 

196 

c 

UPDATE 

197 

170 

FORMAT  ( IMl .49X . *ElECTRON  cross  SECTION 

data  on  tape*.i2///3ox. 

UPOATE 

198 

1 8 1 10/20X ,*  LINE*4X»8A10/20*.90(1H-)/) 

UPOATE 

199 

c 

UPDATE 

200 

1 AO 

FORMAT  (/20x*CONTINUED*) 

UPDATE 

201 

c 

UPOATE 

202 

140 

FORMAT  (/20x.90(1M-)/30X«8A10/30X.8I10) 

UPDATE 

203 

c 

UPOATE 

204 

c 

c 

UPDATE 

206 

49 

remind  ntape 

UPOATE 

207 

eno 

UPDATE 

208 

60 


1 


; 





c 

subroutine  plasma  (Noata,  max,  mesh,  lhs,  rhs,  process,  ev,  f, 

1 G*  Q,  UO,  UM,  NTYPE.  NAME,  MjssiNg,  ERROR,  OUTSIDE,  IDEG,  OUT) 

plasma 

PLASMA 

PLASMA 

2 

3 

4 

c 

PLASMA 

6 

c 

THIS  subroutine  scans  THE  ELECTRON  CROSS  section  file  to  EXTRACT 

PLASMA 

7 

c 

DATa  FOR  the  INPUT  REACTION  •PROCESS'* » oefined  by  *lhs*  and  *rms» 

. plasma 

e 

c 

If  THE 

REACTION  IS  FOUND,  THE  RAW  CROSS  SECTION  DATA  IS  EXAMINEO 

plasma 

Q 

c 

FOR  ERRORS,  AND  lE  ACCEPTABLE,  IS  INTERPOLATED  OVER  THE  INPUT  EN- 

PLASMA 

10 

c 

ergy  grid  defined  by  the  vector  ev<ii.  i • i.meshm.  the  external  plasma 

n 

c 

ELECTRON  file  CONSISTS  OF  (ARBITRARILY  MANY)  PACKAGES  OF  THE  FORM 

PLASMA 

12 

c 

PLASMA 

13 

c 

A) 

REACTION,  UNITS,  NPTS.  MONTH  I60A1 ,f7.3, 13, Al 0) 

PLASMA 

1 A 

c 

PLASMA 

IS 

c 

B) 

COMMENT  (6A10) 

PLASMA 

16 

c 

PLASMA 

17 

c 

1) 

ENERGY  VALUES  (EV) 

PLASMA 

18 

c 

2) 

CROSS  SECTION  VALUES 

PLASMA 

19 

c 

PLASMA 

20 

c 

arbitrary  NUMBER  Of  CARD  pairs  11)  ANO  12),  terminated 

plasma 

21 

c 

BY  THE  BLANK  CARD  (C)  BELOW.  THE  FORMAT  IS  VARIABLE* 

plasma 

22 

c 

THERE  are  *NPTS*  FIELDS  Fk.O.  WHERE  K ■ JBO/NPTSl. 

plasma 

23 

c 

IF  NPTS  < 0 OR  NPTS  » 10,  PROGRAM  DEFAULTS  TO  NPTS  * 10. 

PLASMA 

24 

c 

THE  UNITS  OF  The  CROSS  section  DATA  are  units  X 1.0E-16 

PLASMA 

25 

c 

CM2  (DEFAULT:  UNITS  « 1). 

PLASMA 

26 

c 

plasma 

27 

c 

C) 

BLANK  CARD 

PLASMA 

2B 

c 

PLASMA 

29 

c 

ERROR  CONDITIONS  ENCOUNTERED  ARE  IDENTIFIED  BY  LOGICAL  VARIABLES 

PLASMA 

30 

c 

which  a»e  Returned  with  the  value  .true,  to  the  calling  program. 

plasma 

31 

c 

PLASMA 

32 

c 

PLASMA 

33 

c 

INPUT  PARAMETERS  — 

PLASMA 

34 

c 

PLASMA 

35 

c 

NOATA 

* logical  file  for  electron  cross  section  data. 

PLASMA 

36 

c 

PLASMA 

37 

c 

MAX 

* DIMENSION  DECLARATOR  DEFINED  for  EV(I),  F(I>«  G(I>» 

PLASMA 

38 

c 

and  ad)  in  the  calling  program. 

PLASMX 

39 

c 

PLASMA 

*0 

c 

mESh 

* NUMBER  oE  subintervals  into  WHICH  the  electron  energy 

plasma 

41 

c 

range  is  divioeo  (and  over  which  the  cross  section  data  plasma 

42 

c 

IS  TO  be  INTERPOLATED).  MESH*1  1 MAX. 

plasma 

43 

c 

PLASMA 

44 

c 

PROCESS 

* VECTOR  (4A10)  CONTAINING  HOLLERITH  NAME  OF  REACTION. 

PLASMA 

45 

c 

plasma 

46 

c 

LHS.RHS 

* (INTEGERS!  ENCODEO  WITH  UNIQUE  IDENTIFIERS  OF  THE  LEFT 

plasma 

47 

c 

AND  RIGHT  HANO  SIDE  OF  THE  REACTION  (CF.  SUBROUTINE 

PLASMA 

48 

c 

OEKOOE) . 

PLASMA 

49 

c 

PLASMA 

50 

c 

F*  G 

* SCRATCH  VECTORS  (DIMENSIONED  Max  IN  CALLING  PROGRAM.) 

PLASMA 

SI 

c 

plasma 

52 

c 

plasma 

53 

c 

OUTPUT 

PARAMETERS  — 

plasma 

54 

c 

plasma 

55 

c 

oil) 

* cross  section  vector  (units  of  cmp>  defined  at  evid 

plasma 

56 

c 

plasma 

57 

c 

U<J 

* cross  section  threshold  energy  iev). 

plasma 

58 

61 


62 


r 


J 


I 


R L2  * l 
7 jS\«  = - ISW 

READ  InDATA, FORM)  (Y(N),  N = l.NPTS) 

SUN  * 0. 

DO  16  N * l.NPTS 
16  SUN  * SUN  ♦ Y(N» 

C 

C BLANK  C*RO  TERMINATES  <U»  SIGMA)  DATA  PACKAGE  FOR  THE  INELASTIC 
C PROCESSES  Nk. 

C 

IF  ((SUM.EU.O.).AND.USW.LT.O))  GO  TO  10 
IF  (MISSING)  GO  TO  7 
IF  (L2.E0.LAST)  GO  TO  7 
IF  (ISw.GT.O)  GO  To  9 

c 

L * L2 

DO  12  N * l.NPTS 
IF  (L.EO.LAST)  GO  TO  7 
IF  (Y<N) .GT.XO)  GO  TO  11 
IF  (Y(N).NE.O.)  error  * .TRUE. 

LAST  * L 
GO  TO  7 

11  L * L* 1 

12  xO  x F (L ) * YIN) 

GO  TO  7 

C 

9 L * L2 

DO  13  N * l.NPTS 
IF  (L.EO.LAST)  GO  TO  8 
L ■ L*  1 

GIL)  * Y(N)*UNITS 
IF  (G<L».GT.O.)  THRESH  * .TRUE. 

IF  (THRESH)  go  TO  5 
UO  = F (L ) 

LTH  = L 

S IF  (FO.EQ.O. ) GO  To  13 
UM  * F«L) 

LPTS  * L 

13  FO  * GlL) 

GO  TO  8 

C 

10  IF  (HISSING)  GO  TO  20 
LPTS  * LPTS  - LTH  « 1 
ERROR  » ERROR. OR. LPTS.LE.l 
IF  (ERROR I GO  TO  6 
DO  1*  L * 1 .LPTS 
LL  . L » LTH  - 1 
G<L|  * G(LL) 

1 A F (L ) « F (LL  ) 

C 

OUT  SIDE  * .TRUE. 

DO  15  L » 1.MESHP1 
SIGMA  a o. 

X * EV(L) 

IF  (X.gT.UM)  go  to  is 
IF  (X.LT.uO)  go  TO  15 
OUTSIDE  » .FALSE. 


PLASMA 

116 

plasma 

117 

plasma 

118 

plasma 

119 

PLASMA 

120 

PLASMA 

121 

PLASMA 

122 

PLASMA 

123 

plasma 

12* 

PLASMA 

125 

plasma 

126 

PLASMA 

127 

PLASMA 

128 

PLASMA 

129 

Pi  ASHA 

130 

PLASMA 

131 

PLASMA 

132 

PLASMA 

133 

PLASMA 

13* 

PLASMA 

135 

PLASMA 

136 

PLASMA 

137 

PLASMA 

138 

PLASMA 

139 

PLASMA 

UO 

PLASMA 

Ul 

PLASMA 

U2 

PLASMA 

1*3 

PLASMA 

U* 

PLASMA 

1*5 

PLASMA 

1*6 

PLASMA 

1*7 

PLASMA 

1*8 

PLASMA 

1*9 

PLASMA 

150 

PLASMA 

1S1 

PLASMA 

152 

PLASMA 

153 

plasma 

15* 

PLASMA 

155 

PLASMA 

156 

PLASMA 

157 

PLASMA 

158 

PLASMA 

159 

plasma 

160 

PLASMA 

161 

PLASMA 

162 

PLASMA 

163 

plasma 

16* 

PLASMA 

165 

PLASMA 

166 

PLASMA 

1 67 

PLASMA 

168 

PLASMA 

169 

PLASMA 

170 

PLASMA 

171 

PLASMA 

172 

i 


i i 


1 

i 


63 


I 


CALL  InTERP  cioeg.  *.  SIGMA,  F,  G»  1,  LPTS) 

PLASMA 

173 

15 

ip  (SIgMA. GE.O.)  OIL)  * SIgM*»UNIT 

PLASMA 

174 

plasma 

175 

6 

IP  (.NOT.OUTU)  ) GO  TO  18 

plasma 

176 

WRITE  (6,102)  UNIT,  PROCESS 

plasma 

177 

102 

FORMAT  (1HI,34X, ‘CROSS  SECTION  (UNITS  OP*.  1PE10.3*  CM2)  VS  ELECTR 

PLASMA 

178 

ION  ENERGY  (EV,  . OR*/S7X,4A10//) 

plasma 

179 

IP  (KOHMENT(l).NE.lH  ) WRITE  (6,103)  KoMMENT 

plasma 

1 AO 

103 

FORMAT  (35X,*REPERENCE  — **6A10//> 

PLASMA 

181 

WRITE  (6,104)  UNIT 

PLASMA 

182 

104 

FORMAT  (56X»U*15X*S1GMA(U)*/54X*(EV)  *10X* (*1PE7.1*  CM2)*) 

PLASMA 

1 A3 

WRITE  (6,105) 

PLASMA 

1A4 

105 

FORMAT  (/50X.33I1H-)/) 

PLASMA 

185 

ll  * 0 

plasma 

186 

line  * 1 

PLASMA 

187 

DO  33  L * l.LPTS 

PLASMA 

188 

IP  (LL.NE.LINE)  GO  TO  32 

PLASMA 

189 

WRITE  (6» NT  AGE ) 

PLASMA 

1 90 

WRITE  (6,104)  UNIT 

PLASMA 

191 

WRITE  (6,105) 

PLASMA 

192 

32 

LINE  * LINE. I 

PLASMA 

193 

WRITE  (6,106)  F(L>.  G(L> 

PLASMA 

194 

106 

FORMAT  (50X,F8.3, 1PE22.3) 

PLASMA 

195 

LL  = 4o* (L INE/40 ) 

plasma 

196 

33 

IP  (LL.EO.LINE)  WRITE  (6,105) 

PLASMA 

197 

IP  (LL.NE.LINE)  WRITE  (6.105) 

PLASMA 

198 

W«lTE  (6,108)  MONTH 

PLASMA 

199 

ion 

FORMAT  (/50x,*(OATa  WAS  SUBMITTED  0N*,A9,*)*) 

PLASMA 

200 

PLASMA 

201 

ip  iour(2)  is  specipied.  data  is  plotted  — 

PLASMA 

202 

PLASMA 

203 

in 

IP  c.N0T.0UT(2) 1 GO  TO  99 

plasma 

204 

IP  (ERROR)  GO  TO  99 

PLASMA 

20S 

IPLOT  = 0 

PLASMA 

206 

IP  (F(lPTS).GT.50.*P(1) ) IPLOT  » -1 

PLASMA 

207 

WRITE  (6,102)  UNIT,  PROCESS 

PLASMA 

208 

CALL  PLOT  (MAX,  LPTS,  1,  G,  0.,  0.,  P,  0.,  0.,  .TRUE.,  .TRUE., 

plasma 

209 

l •ipuE.t  .true.*  .true.,  title,  i.  iploti 

PLASMA 

210 

IP  (IPLOT. EO.O)  WRITE  (6,109) 

PLASMA 

211 

109 

FORMAT  (/64x,* electron  ENERGY  U (EV)*) 

PLASMA 

212 

lp  (IPlOT.NE.O)  WRITE  (6,110) 

PLASMA 

213 

110 

FORMAT  (/60X,*LOG  of  ELECTRON  ENERGY  U (EV)*) 

plasma 

216 

PLASMA 

215 

99  RETURN 

PLASMA 

216 

ENO 

PLASMA 

217 

FUNCTION  SHAPE (T) 

shape 

2 

DIMENSION  T IME (21 ) , Y(21) 

SHAPE 

3 

LOGICAL  INTRP 

SHAPE 

4 

COMMON  / TIMES  / TR,  TF,  TFALL.  TDROP,  time.  Y,  INTRP,  N,  UNITS 

SHAPE 

5 

TP  * T/UNlTs 

SHAPE 

6 

IP  (INTRP)  GO  TO  2 

SHAPE 

7 

shape  . 0. 

SHAPE 

A 

IF  (T.LT.O.)  return 

SHAPE 

9 

shape  X 1.0 

SHAPE 

10 

IP  ( TR  .EO.O. ) return 

SHAPE 

11 

X * TR/TF 

SHAPE 

12 

FO  3 X*(l.  » I./X>**(1.  * X) 

SHAPE 

13 

IP  ( TP.GT , T DROP)  GO  TO  1 

SHAPE 

14 

SHAPE  X P0*(1.  - ExP(-TP/TR) |*EXP(-TP/TP) 

SHAPE 

15 

RETURN 

Shape 

16 

1 

TP  a Tp-TOHOP 

SHAPE 

17 

FO  x F0*H.  - EXP(-TOROP/TR)  )*EXP(-TDR0P/TF) 

SHAPE 

18 

SHAPE  x FO*EXP(-TP/TFALL) 

SHAPE 

19 

RETURN 

SHAPE 

20 

2 

C*Ll  InTERP  (2.  TP,  SHAPE,  TIME,  Y,  1,  N) 

shape 

21 

IP  ( SHAPE. LT.O.)  SHAPE  a 0. 

SHAPE 

22 

RETURN 

SHAPE 

23 

ENO 

SHAPE 

?4 
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SUBROUTINE  BOLTZ  (MAX.  MESH*  NK , GAS.  FRACT,  MIX.  NMOL.  TMOL.  HOLTZ 

1 Umax,  tmax.  eps*  kaption,  date.  out.  evcm.  ne.  process,  u.  ni.  boltz 

2 N2,  NFL.  S,  SBEAM,  SOURCE.  X.  XO>  ON.  F.  G.  A.  B.  VSIG.  POWER.  BOLTZ 

3 PCOLL.  DlSCH,  DEPOSIT.  DEDT.  ELASTIC.  ONEOT.  OLNEDT.  IONIZE.  BOLTZ 

A ATTACH.  VC,  HU.  0,  EK,  AMPS.  UBAR.  TE,  CONVRGE.  PBAL)  BOLTZ 

BOLTZ 

— BOLTZ 

BOLTZ 


this  subroutine  performs  a numerical  solution  of  the  boltzmann  trams-  boltz 
port  equation  fop  a multicomponent  gas.  with  the  inclusion  of  inelas-  boltz 
tic  E-MOLECULE  COLLISIONS.  ELASTIC  MOMENTUM  transfer  collisions  (with  boltz 
RECOIL).  SUPERELASTIC  COLLISIONS.  ELECTRON-ELECTRON  (COULOMB)  SCAT-  BOLTZ 
TERING,  AnO  EXTERNAL  ELECTRON  ENERGY  DEPOSITION.  THE  ANALYSIS  CON-  BOLTZ 
SISTS  OF  CALCULATION  0 F THE  ELECTRON  ENERGV  DISTRIBUTION  F(U)  FOR  THE  BOLTZ 
FLECTRONS  in  A PLASMA  WITH  IONIZATION  NE/NTOT  (OR  SINGLE  electron  IF  BOLTZ 
NE  « *).  SUBJECTED  TO  A I SPAT  I ALLY  AND  TEMPORALLY)  CONSTANT  ELECTRIC  BOLTZ 
FIELO.  This  SUBROUTINE  CALCULATES  the  ELECTRON  energy  distribution  boltz 
FUNCTION.  PLASMA  PARAMETERS  (MU,  D,  VO.  Ek*  UBAR,  TE.  .,,).  ELECTRON  BOLTZ 


EXCITATION  RATES  (CM3/SEC)  FOR  The  FORWARD  (AND  REVERSE)  INELASTIC  BOLTZ 
COLLISION  PROCESSES  J » 1.2.....NK.  AND  ThE  (NET)  ELECTRICAL  POWER  BOLTZ 

partitioning  eor  all  oe  these  processes  uno  for  elastic  heating).  boltz 

BOLTZ 

input  PARAMETERS  — BOLTZ 

BOLTZ 

Max  ■ DIMENSION  DECLARATOR  defined  for  various  vectors  boltz 

and  arrays  in  the  calling  program.  boltz 

BOLTZ 

mesh  * number  of  subdivisions  into  which  the  electron  boltz 

ENERGY  range  IO.EMaXI  is  partitioned.  boltz 

BOLTZ 

NK  * NUMBER  OF  INELASTIC  EC-1  COLLISION  PROCESSES  BOLTZ 

INCLUDED  IN  THE  PLASMA  KINETICS  ANALYSIS.  BOLTZ 

BOLTZ 

X(I)  * (I  - I) OX.  ELECTRON  ENERGY  GRID  (EV).  where  boltz 

OX  * EMAX/MESH.  BOLTZ 

BOLTZ 

XQII.JI  » XUIOII.JI,  WHERE  0(1. j)  * INELASTIC  SCATTERING  BOLTZ 

CROSS  SECTION  (CM2)  FOR  The  JTH  INELASTIC  ELECTRON  BOLTZ 
COLLISION  PROCESS*  AT  ENERGY  X(I).  BOLTZ 

BOLTZ 

Om(I,L)  * ARRAY  CONTAINING  TwO  COLUMN  VECTORS,  CONVENIENT  BOLTZ 

FOR  THE  BOLTZMANN  ANALYSIS  — BOLTZ 

BOLTZ 

QM (1,1)  « X • I ♦ .5) /NTOT  SUMKIFI ( K ) »QMOM ( I * .5 .K ) ) BOLTZ 

BOLTZ 

QM (1,2)  ■ X ( I * ,5) ••2*2*ME,NT0T»  BOLTZ 

suMkifi (K)»omom(i,.5,ki/mass(K) i boltz 

BOLTZ 

WHERE  OMOM(I,K)  * MOMENTUM  TRANSFER  CROSS  SECTION  BOLTZ 

at  ENERGY  Xlll  for  species  k.  boltz 

boltz 

F ( I ) s F I X ( I > ) , INITIAL  GUESS  FOR  THE  ELECTRON  ENERGY  BOLTZ 

DISTRIBUTION  FUNCTION.  DIMENSIONED  F(MAX)  in  the  boltz 

CALLING  program.  boltz 

BOLTZ 

U(j)  = energy  loss  (EV)  for  the  jth  inelastic  electron  boltz 

PROCESS.  BOLTZ 


2 

3 

A 

5 

6 
7 
0 
9 

10 

II 
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SBEAM 


N{ ( J>  x NEUTRAL  PARTICLE  DENSITY  ICM-3)  of  the  lower  state 

IN  The  jth  INELASTIC  collision  process. 

N2CJ)  X NEUTRAL  PARTICLE  DENSITY  (CM-3)  OF  THE  UPPER 

state  in  the  jth  inelastic  collision  process. 

NeLCJ)  » NET  NUMBER  OF  ELECTRONS  (RIGHT  HAND  SIDE  - LEFT 

HANO  SIDE)  FOR  THE  JTH  ELECTRON  COLLISION  PROCESS. 

NMOL  X TOTAL  NEUTRAL  PARTICLE  DENSITY  (CM-3). 

NE  » ELECTRON  DENSITY  CCM-3). 

ONEDT  * INPUT  ESTIMATE  OF  D/DT(NE>.  THE  RATE  OF  CHANGE  OF 

THE  SECONDARY  ELECTRON  DENSITY  (CM-3/SEC).  THE 
BOLTZMANN  ANALYSIS  DETERMINES  D/DT (NE)  SELF-CON" 
sistentlv  in  an  iterative  LOOP.  AND  EXECUTION  MAY 
be  OPTIMIZED  by  a gooo  initial  estimate  of  dnedt. 

UPON  OUTPUT.  ONEDT  IS  THE  ACTUAL  (SELF-CONSISTENT) 
VALUE  OF  O/OT (NE) • 

source  x total  rate  of  external  source  creation  of  secon- 
dary ELECTRONS  AT  U » 0 (CM-3/SEC) • 

SbEAM  « total  rate  of  e-beam  creation  of  secondary  elec- 
trons (CM- 3/SEC). 

S « I » X NOkMALIZED  E-BEAM  source  functions  SBEAM«S(I)  = 

RATE  OF  GENERATION  OF  ELECTRONS  (/SEC/CM3/EV)  IN 
THE  ENERGY  RANGE  (U»U‘OU).  WHERE  U a X(I).  THE 
TOTAL  EXTERNAL  PO*ER  DEPOSITION  !S«  DEPOSIT  ■ 
S8E*N»INT(0U  U S(U)1  (EV/SEC/CM3) . 

GAS(K)  a NAME  OF  THE  KTH  GAS  IN  THE  MIXTURE. 

FRACT(K)  a RELATIVE  FRACTION  OF  ThE  KTH  GAS  IN  The  MIXTURE- 
SUMKt  FRACT IK) ) NEED  NOT  EQUAL  II  THE  PROGRAM  WILL 

automatically  normalize  the  concentrations,  after 
SORTING  THEM  into  DESCENDING  NUMERICAL  OROER. 

process  = array  (dimensioned  (a.im  containing  a woros  per 

COLUMN  TO  PROVIDE  A AO-BCO  CHARACTER  SPECIFICATION 

FOR  EACH  Of  The  inelastic  e-  collision  processes, 
mix  a number  of  species  in  the  mixture. 

EveM  a ELECTRIC  FIELD  (V/CM). 

TMOL  * MOLECULAR  TEMPERATURE  (OEGK). 

A ( I , j)  a SCRATCH  ARRAY.  DIMENSIONED  A(MAX.3>  IN  THE  CALLING 

PROGRAM.  USED  FOR  STORING  CERTAIN  COEFFICIENTS 

THAT  DEFINE  The  finite  difference  form  of  the 

BOLTZMANN  EQUATION  (AU.l),  Ad. 2).  AND  AII.3I  ARE 
USED  TO  STORE  THE  THREE  MAJOR  DIAGONALS  OURING  THE 
SOLUTION).  LATER.  A(I,J>  IS  USED  AS  A SCRATCH 


Gas (k ) 
fract(ki 


process 


boltz 

boltz 

BOLTZ 

boltz 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

boltz 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 
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c 

ARRAY  FOR  CALCULATING  numerous  plasma  parameters. 

BOLTZ 

116 

c 

BOLTZ 

1IT 

c 

Bill 

s 

SCRATCH  VECTOR.  DIMENSIONED  B (MAX)  IN  THE  CALLING 

BOLTZ 

1 IB 

c 

PROGRAM.  USED  FOR  THE  RIGHT  HANO  SIOE  IN  ThE 

BOLTZ 

1 IN 

c 

ITERATIVE  SOLUTION  of  the  BOLTZMANN  EQUATION. 

BOLTZ 

120 

c 

BOLTZ 

121 

c 

EPS 

s 

MAXIMUM  change  BETWEEN  successive  ITERATIONS  for 

BOLTZ 

122 

c 

DEFINITION  of  CONVERGENCE  FOR  THE  ELECTRON  ENERGY 

BOLTZ 

123 

c 

DISTRIBUTION  FUNCTION,  convergence  is  declared  IE 

BOLTZ 

12* 

c 

BOLTZ 

125 

c 

MAx(I)(FII(N)-F(I(N-l> I/FII.N-11  « EPS 

BOLTZ 

126 

c 

BOLTZ 

127 

c 

iTMAx 

X 

MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWED  TO  SOLVE  THE 

BOLTZ 

128 

c 

BOLTZMANN  EOUATION.  (IF  ITMAX  i.  PROGRAM  SETS 

BOLTZ 

129 

c 

convrge  * true,  and  immediately  transfers  control 

BOLTZ 

130 

c 

to  calculation  of  plasma  parameters  for  the  input 

BOLTZ 

131 

c 

DISTRIBUTION  FUNCTION  f. 

BOLTZ 

132 

c 

BOLTZ 

133 

c 

Tmax 

X 

MAXIMUM  CP  TIMF  ALLOWED  FOR  ATTAINMENT  OF  CONVER- 

BOLTZ 

13* 

c 

GENCE  OF  The  ELECTRON  ENERGY  distribution  function 

BOLTZ 

135 

c 

BOLTZ 

136 

c 

OuT«I» 

s 

LOGICAL  VECTOR  OF  OUTPUT  REOUESTS  (I  ■ I.2....SM 

BOLTZ 

137 

c 

BOLTZ 

138 

c 

1>  TABLE  OF  PLASMA  PARAMETERS 

BOLTZ 

139 

c 

2)  table  of  ELECTRON  energy  distribution 

BOLTZ 

1*0 

c 

3)  LOgPLOT  OF  ENERGY  DISTRIBUTION  F(U> 

BOLTZ 

1*1 

c 

*)  LOGPLOT  OF  RELATIVE  FUNCTION  F (U)/FB(U.TE> 

BOLTZ 

1*2 

c 

(FB(U.TE)  » BOLTZMANN  DISTRIBUTION  AT  TE.» 

BOLTZ 

1*3 

c 

S)  table  of  excitation  rates  and  electrical 

BOLTZ 

1** 

c 

POWER  TRANSFER  FOR  ALL  Ed  PROCESSES. 

BOLTZ 

1*5 

c 

BOLTZ 

1*6 

c 

KAPTiON(A) 

s 

VECTOR  CONTAINING  A AO  BCD  CHARACTER  TITLE 

BOLTZ 

1*7 

c 

BOLTZ 

BOI  T 7 

1*8 

c 

c 

°v/w  1 c 

BOLTZ 

I ” 

150 

c 

output  parameters 

-- 

BOLTZ 

151 

c 

BOLTZ 

152 

c 

VsiGjK.JI 

s 

FORWARD  (K  ■ 1)  ANO  REVERSE  <K  « 2)  ELECTRON  EX- 

BOLTZ 

153 

c 

CITATION  RATES  ICM3/SEC)  FOR  THE  JTH  INELASTIC 

BOLTZ 

15* 

c 

collision  PROCESS* 

BOLTZ 

155 

c 

BOLTZ 

156 

c 

VSlG(l.J)  * <V (U| 0 (U.  J)> 

BOLTZ 

157 

c 

VS IG  <2. Jl  * <V(U)Q(U.-J>> 

BOLTZ 

158 

c 

BOLTZ 

159 

c 

WHERE  Qtu.-J>  IS  The  CROSS  SECTION  FOR  THE  REVERSE 

BOLTZ 

160 

c 

PROCESS. 

BOLTZ 

161 

c 

BOLTZ 

162 

c 

power u> 

X 

NET  POWER  (ACCOUNTING  FOR  FORWARD  AND  REVERSE  COL- 

BOLTZ 

163 

c 

LISION  PROCESSES)  PARTITIONED  INTO  THE  JTH  INELAS- 

BOLTZ 

16* 

c 

TIC  PROCESS.  (WATT/ELECTRONl 

BOLTZ 

165 

c 

BOLTZ 

166 

c 

VO 

s 

ELECTRON  DRIFT  VELOCITY  (CM/S). 

BOLTZ 

167 

c 

BOLTZ 

168 

c 

X 

ELECTRON  MOBILITY  (CM2/V/SEC). 

BOLTZ 

169 

c 

BOLTZ 

170 

c 

0 

s 

ELECTRON  DIFFUSION  COEFFICIENT  (CM2/SEC). 

BOLTZ 

171 

c 

BOLTZ 

172 
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Ek 

x 

CHARACTERISTIC  ELECTRON  energy  » D/MU  (EV). 

BOLTZ 

173 

boltz 

174 

UBAR 

z 

AVERAGE  electron  Energy  (EV). 

BOLTZ 

175 

BOLTZ 

176 

lE 

s 

EFFECTIVE  ELECTRON  TEHPERATURE  (DEG  K).  DEFINED  BY 

BOLTZ 

177 

(3/21KTE  * UBAR 

BOLTZ 

176 

BOLTZ 

179 

OISCH 

s 

E»NE*HU*EVcM**2,  TOTAL  ELECTRICAL  DISCHARGE  POWER 

BOLTZ 

1A0 

DENSITY  (W/CM3). 

BOLTZ 

la  l 

boltz 

162 

deposit 

z 

POWER  DENSITY  FROH  EXTERNAL  DEPOSITION  (INTO  ELEC- 

BOLTZ 

183 

TRON  KINETIC  ENERGY)  (W/CM3) . 

BOLTZ 

1 84 

BOLTZ 

185 

pcoll 

z 

ELECTRICAL  POWER  DENSITY  INTO  INELASTIC  COLLISIONS 

BOLTZ 

186 

(W/CM3) . 

BOLTZ 

187 

BOLTZ 

188 

Elastic 

■ 

ELECTRICAL  POWER  DENSITY  INTO  ELASTIC  HEATING  OF 

BOLTZ 

189 

THE  MOLECULAR  GAS  (W/CM3). 

boltz 

190 

BOLTZ 

191 

oedt 

a 

UBaR*DNE/OT  « RATE  OF  CHANGE  OF  ENERGY  OENSITY 

BOLTZ 

192 

STORED  IN  THE  ELECTRON  GAS  (W/CM3). 

BOLTZ 

193 

BOLTZ 

194 

NOTE: 

IF  NE  « 0,  THE  FIVE  POWER  DENSITIES  (DISCH,  DE- 

BOLTZ 

195 

POSIT,  PCOLL,  ELASTIC,  ANO  OEDT)  ARE  EVALUATED  FOR 

BOLTZ 

196 

UNIT  ELECTRON  OENSITY  (I.E.  AS  IF  NE  * 1.0  CM-3) • 

BOLTZ 

197 

AND  THUS,  THE  EFFECTIVE  UNITS  ARE  W/ELECTRON. 

BOLTZ 

198 

BOLTZ 

199 

onedt 

z 

D/DT(NE),  rate  OF  CHANGE  of  secondary  electron 

BOLTZ 

200 

OENSITY  (CM-3/SEC). 

BOLTZ 

201 

BOLTZ 

202 

ionize 

z 

TOTAL  IONIZATION  FREQUENCY  (SEC-1). 

BOLTZ 

203 

BOLTZ 

204 

attach 

a 

TOTAL  FREQUENCY  FOR  ATTACHMENT  ANO  RECOMBINATION. 

BOLTZ 

205 

BOLTZ 

206 

olneot 

a 

( 1/NE)*0/DT<NE> , LOGARITHMIC  DERIVATIVE  OF  NE. 

boltz 

207 

BOLTZ 

208 

amps 

z 

E*VO  * ELECTRICAL  CURRENT  DENSITY  per  unit  elec- 

BOLTZ 

209 

TRON  DENSITY  (*  CM) . 

BOLTZ 

210 

boltz 

211 

f d> 

z 

NORMALIZED  ELECTRON  ENERGY  DISTRIBUTION  FUNCTION 

boltz 

212 

(UNITS  OF  EV** (-3/2) . 

BOLTZ 

213 

BOLTZ 

214 

G ( I ) 

z 

F ( I )/F( 1 ) 

BOLTZ 

215 

boltz 

216 

6(1) 

z 

Fd)/FBOLTZ<TE,I> 

BOLTZ 

217 

BOLTZ 

218 

C0NVR0E 

z 

LOGICAL  VARIABLE  WHICH  SPECIFIES  SUCCESSFUL  CON- 

BOLTZ 

219 

VERGEMCE  OF  THE  ELECTRON  DISTRIBUTION  FUNCTION 

BOLTZ 

220 

calculations. 

boltz 

221 

BOLTZ 

222 

BOLTZ 

224 

DIMENSION  XQ (MAX  * 1 ) * QM (MAX* 1 ) , X « 1 > « F < 1 > * fi  < 1 » • VSIG(2*1), 

BOLTZ 

225 

1 0(1),  N1<1>, 

N2(l>*  NEL<1>»  POWER(l)*  A (MAX , 3 ) • PROCESS ( A, 1 ) » 

boltz 

226 

2 B ( 1 ) , OUT  <1) 

« 

GAS ( 1 ) , FRACT(I),  NAME ( 5 ) , F I (S) , F0RM()5I, 

BOLTZ 

227 

3 kaptioni*)  , 

NOUT  (6 ) • Sin,  PCT(6) 

BOLTZ 

228 

BOLTZ 

229 

68 
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REAL  nmol*  mu.  Me.  KT.  KB.  Nl,  N2.  KTE.  NUt  NE.  LAM0OA.  IONIZE. 

1 lo6.  kvcmatm 

logical  CONVRGE.  TEST.  ERROR,  out 
INTEGER  OATe,  skip,  gas 


0*Ta  E.  PI*  kb.  ME  / 1.602E-12.  3.1*15927,  1.38E-16,  9.31E-28  / 
OAIa  NmAX*  MASK  / 5*  777700000000000000008  / 

CALL  SECONO(TO) 


SORT  species  in  descending  ORDER  or  concentration  — 

SUM  * 0. 

DO  37  N ■ I .MIX 

37  SUM  3 SUM  • FRACT (N> 

n*me(1>  * name (2)  * name) 3)  ■ nameiai  * nameiS)  ■ ih 
ngas  * o 

38  FMAx  * 0. 

DO  2 N » 1 *M I X 

DO  33  K * l.NGAS 
IF  (GASIN) .EO.NaME(K) ) GO  TO  2 
33  CONTINUE 

IF  (FRACT INI .LE. FMAX)  GO  TO  2 
FMAx  * FRACT (N) 

NO  * N 
2 CONTINUE 

IF  IFMAA.LT. 1.0E-0**SUM>  GO  TO  AS 
NGAs  » NGAS. 1 
NAME(NGAS)  « GAS (No) 

Fl(NGAS)  * FRACT (NO) 

IF  (NGAS. EO. NMAX)  GO  TO  AS 
GO  TO  38 

AS  PTOT  * NMOL»TMOL/0.965E  19 
ATM  . pTOT/760. 

DO  36  N 1 l.NGAS 
36  Fl<N)  * F I ( N ) /SUM 


FE  * ne/nmol 

ESU  * 300. #E 

ESO  3 eSU’ESU 

IF  (TE.LE.O.I  TE  - TMOL 

KTE  3 kB*TE 

UBAr  3 l.S»KTE/E 

kT  3 KB*TM0l/E 

CONST  3 (2.*PI/3.)»NE*ESO«9.0E  OA 

ox  3 X (2) ~X ( 1 ) 

EM  3 SORT(2.*E/ME) 

M * MESH  ♦ 1 
MPTS  * MESH/2 
EMAx  « X (M) 

CO  3 E» 1 .OE-07 
IF  (NE.NE.O.)  CO  ■ NE*C0 
kAPt  3 IOHWATT/ELECT 
IF  (NE.NE.O.)  KAPT  3 10HWATT/CM3 

en  3 evCm/nmol 

ES03  * EVCM»EVCM/3. 

EP  = EvCM/PTOT 
KVCMATM  ■ • 760*EP 
IONIZE  ■ ATTACH  « 0. 


BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 


230 

231 

232 

233 
23a 

235 

236 

237 

238 

239 
2A0 
2A| 
2A2 
2a3 
2*6 
2a5 
2a6 
2a7 
2a8 
2*9 

250 

251 

252 

253 
25A 

255 

256 

257 

258 

259 

260 
261 
262 
263 
26* 

265 

266 

267 

268 

269 

270 

271 

272 

273 
27* 

275 

276 

277 

278 

279 

280 
281 
282 
283 
28* 

285 

286 
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DLNEDT  * o. 

BOLTZ 

207 

If  INE.NE.O.)  DLNEDT  * ONEOT/NE 

BOLTZ 

208 

C * 0. 

BOLTZ 

209 

IF  (NE.NE.O.I  C « l./NE 

BOLTZ 

290 

SB  a C»SBEAM 

BOLTZ 

291 

SO  a C»SOU«CE 

BOLTZ 

292 

SEXT  » SO  ♦ SB 

BOLTZ 

293 

C * SB/EH 

BOLTZ 

294 

TtST  « SB.NE.O. 

BOLTZ 

295 

CONVRGE  * .TRUE. 

BOLTZ 

296 

DO  31  J « l.NK 

BOLTZ 

297 

31 

TEST  » TEST.or.(nEL(J» .ne.oi 

BOLTZ 

296 

TEST  - TEST.ANO. (DLNEDT.EQ.O.I 

BOLTZ 

299 

ELECT  a 0. 

BOLTZ 

300 

iter  ■ 0 

BOLTZ 

301 

Tl*E  » 0. 

BOLTZ 

302 

c 

INITIAL  (COARSE)  SOLUTION  CONVERGENCE  PARAMETER  — 

BOLTZ 

303 

EPSILON  a 0.01 

BOLTZ 

304 

c 

BOLTZ 

30S 

c 

normalize  the  input  distribution  function  — 

BOLTZ 

306 

DO  13  I ■ l.M 

BOLTZ 

307 

13 

B ( 1 ) * SORT ( X ( I ) ) *F ( I ) 

BOLTZ 

300 

call  Simpson  <b.  mesh/2,  dx«  fnorm» 

BOLTZ 

309 

do  14  I * l.M 

BOLTZ 

310 

A(1. 11  * X(I(*S(I) 

BOLTZ 

311 

G ( I ) « F ( 1 ) 

BOLTZ 

312 

14 

F 1 1 ) a F(I)/FNORM 

BOLTZ 

313 

c 

BOLTZ 

314 

call  Simpson  (a.  mesh/2,  ox.  uplus> 

BOLTZ 

315 

DEPOSIT  * CO»SB*UPLUS 

BOLTZ 

316 

c 

BOLTZ 

317 

c 

IF  ITMAX  < 0.  THE  PROGRAM  AUTOMATICALLY  SUPPRESSES  THE  BOLTZMANN 

BOLTZ 

318 

c 

SOLUTION,  and  TRANSFERS  oirectly  TO  CALCULATION  of  plasma  PARA- 

BOLTZ 

319 

c 

meters  and  excitation  rates  based  upon  the  input  cunction  fiii. 

BOLTZ 

320 

c 

BOLTZ 

321 

IF  (ITmAX.LE.O)  go  to  65 

BOLTZ 

322 

c 

BOLTZ 

323 

c 

GO  TO  CALCULATE  INITIAL  APPROXIMATION  TO  D/OT(LN  ne>  — 

BOLTZ 

324 

IF  (TEST)  GO  TO  65 

BOLTZ 

325 

c 

BOLTZ 
nm  t 7 

3?6 

"KOI 

c 

c 

BOLTZ 

328 

c 

THE  BOLTZMANN  EQUATION  IS  REDUCED  TO  A FINITE  DIFFERENCE  SYSTEM 

BOLTZ 

329 

c 

DEFINED  over  AN  ENERGY  GRIO  SUBDIVIDED  into  .MESH*  INTERVALS.  it 

BOLTZ 

330 

c 

becomes  a matrix  equation  af  * b<F) . the  matrix  a.  which  is  tri- 

BOLTZ 

331 

c 

diagonal . includes  all  of  the  terms  from  the  lhs  of  the  Boltzmann 

BOLTZ 

332 

c 

equation,  as  well  as  the  diagonal  elements  of  the  rhs  inelastic 

BOLTZ 

333 

c 

COLLISION  and  ELECTRON-ELECTRON  scattering  TERMS.  after  reduction 

BOLTZ 

334 

c 

of  THE  ELECTRON-ELECTRON  T£HMS  TO  FINITE  DIFFERENCES.  ONLY  TRI- 

BOLTZ 

335 

c 

diagonal  terms  result,  with  coefficients  which  are  evaluated  using 

BOLTZ 

336 

c 

the  PREVIOUS  DISTRIBUTION  FUNCTION.  The  VECTOR  B(F)  is  a LINEAR 

BOLTZ 

337 

c 

function  of  f,  composeo  of  the  off-diagonal  elements  of  the  in- 

BOLTZ 

338 

c 

ELASTIC  SCATTERING  TERM,  ALSO  EVALUATED  USING  THE  PREVIOUS  DISTRI- 

BOLTZ 

339 

c 

BUT  ION  FUNCTION. 

BOLTZ 

340 

c 

BOLTZ 

341 

c 

THE  BOLTZMANN  EQUATION  IS  WRITTEN 

BOLTZ 

342 

c 

BOLTZ 

343 
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c 

1/<SQRT»2E/M)*NE>*(SQRTCU>F<U)0NE/DT  » OJF (U) /OU  ♦ DUEL  (U) /OU 

BOLTZ 

344 

c 

« DJEE<U>/DU  - SBEAM*SIU)J  * ( ( NU ( I ON ) ♦ S0URCE/NE)»0ELTA(U) 

BOLTZ 

345 

c 

♦ SUMM  U*F  <UI »NK*OK (U) ] 1 « 

BOLTZ 

346 

c 

BOLTZ 

347 

c 

WHERE 

BOLTZ 

346 

c 

BOLTZ 

349 

c 

J«F>  « - ( 1/3) NE*SORT (2E/M ) *ESQ*U  DF/OU  /<N  QM(U)> 

BOLTZ 

350 

c 

J(EL>  * - NE#SQRT(2E/M»*USQ<<?HE/H)NOM(U»>#|F  ♦ (KT/EJDF/DU! 

BOLTZ 

351 

c 

J(EE»  * - (2Pl/3>#Q,#A/E»*2#LNCLAMBOA»*NE#NE*SQRT (2E/M)* 

BOLTZ 

352 

c 

(PINT (U)*DF/OU  ♦ OlNT <U)*F(U> 1 

BOLTZ 

353 

c 

BOLTZ 

354 

c 

WHERE 

BOLTZ 

355 

c 

BOLTZ 

356 

c 

PIMTIU)  ■ 2*INT(DU*U*«1.5*F <U) ) « 2«U«*l .5* |MTIDU*F (Ul) 

BOLTZ 

357 

c 

OINKUl  » 3«lNTCOO«SORT(U|*F<U»  1 

BOLTZ 

358 

c 

OEByE  * SQRT<KTE/(4«PI»NE»NE> > 

BOLTZ 

359 

c 

lambda  a debve/rmin 

BOLTZ 

360 

c 

RMIn  « ESU**2/ (E'UflAR) 

BOLTZ 

361 

c 

BOLTZ 

362 

c 

oefine  quantities  related  to  the  driving  field  and  elastic  colli- 

BOLTZ 

363 

c 

sions  — 

BOLTZ 

364 

c 

BOLTZ 

365 

c 

P«U)  > IE**2/3) *U/<N  OMOM<U)>  ♦ (KT/E»#U*»2  <<2ME/M)N  QMOM(U)> 

BOLTZ 

366 

c 

Q»U)  . U**2  < ( iMe/MIN  QMOM<U)> 

BOLTZ 

367 

c 

BOLTZ 

368 

c 

P(I*.5)  * <E"2/3>*QM<I,1)  ♦ (KT/E) »QM  <1*21 

BOLTZ 

369 

c 

Q(  I»*S)  * OM ( I *2) 

BOLTZ 

370 

c 

BOLTZ 

371 

c 

OEFINE  TERMS  RELATEO  TO  ELECTRON-ELECTRON  SCATTERING  — 

BOLTZ 

372 

c 

BOLTZ 

373 

c 

ALPHA <U>  * I2PI/3)NE(0»»4/E»*2)L0GCLAMBDA>* 

BOLTZ 

374 

c 

(pint iui/ou  ♦ oint(u>/2] 

BOLTZ 

375 

c 

BEIaiU)  ■ (2PI/3>NE(0»»4/E**2)LoG<LAMBOA>» 

BOLTZ 

376 

c 

(PINT  <U)  /DO  - OINTUM/2) 

BOLTZ 

377 

c 

BOLTZ 

376 

c 

A ( 1 « 1 * * PtI*. 51/00  - 0II-.5)/2  • BETACI-.5) 

BOLTZ 

379 

c 

A(  I *2)  * -(P(I^.S)  • PU-.SII/OU  » (0  ( I * .5)  - Q«I-.  5)1/2 

BOLTZ 

380 

c 

-DU*SUMK(NK  U OK  (U)  • NK*IU  ♦ UK)QK(U  ♦ UK) I 

BOLTZ 

381 

c 

- ALPHACI-.5)  - BE  T A < I ♦ . 5 ) - DU«SQRT(U  M/2E) DNEOT/NE 

BOLTZ 

382 

c 

- ALPHA ( I-,5)  - BeTA<I».5> 

BOLTZ 

383 

c 

A ( I *3)  * PI I ♦ .5) /DU  » 0«I».S>/2  * ALPHA ( I * *5) 

BOLTZ 

384 

c 

BOLTZ 

385 

c 

B ( I ) X -OU«SUMK(NK(U»UK)QK(U*UK)F(U»UK)  »NK«UQK (U)F(U-UK) I 

BOLTZ 

386 

c 

- SORT (M/2E) (OU«S<U)/NE  » NU ( ION) DELTA (Ul ) 

BOLTZ 

387 

c 

BOLTZ 

388 

c 

the  reduction  of  the  Boltzmann  equation  to  a tridiagonal  finite 

BOLTZ 

389 

c 

DIFFERENCE  SYSTEM  of  equations  — 

BOLTZ 

390 

c 

BOLTZ 

391 

c 

AlI*l)*F(I-I)  ♦ AI I .2) #F ( I ) . AI I »3l*F ( I »1 ) * Bill 

BOLTZ 

392 

c 

BOLTZ 

393 

c 

I * 2. 3* . • • »M.  THE  SET  IS  COMPLETED  Br  THE  CONDITION  THAT  F(l) 

BOLTZ 

394 

c 

CAN  BE  APPROXIMATED  AS  lE.G.)  FID  * F(2). 

BOLTZ 

395 

c 

BOLTZ 

396 

c 

IN  GENERAL*  DIRECT  INVERSION  OF  THF  LINEAR  SYSTEM  IS  NOT  PRACTICAL 

BOLTZ 

397 

c 

EITHER  from  The  STANDPOINT  or  CORE  storage  or  matrix  inversion. 

BOLTZ 

398 

c 

INSTEAD,  advantage  is  taken  of  the  fact  that  a IS  SPARSE  «t.E.  ALL 

BOLTZ 

399 

c 

ELEMENTS  EXCEPT  for  three  DIAGONALS  awe  ZERO),  and  solution  is 

BOLTZ 

400 

71 


c 

c 

ATTEMPTED  By  AN  ITERATIVE  APPROACH:  A(F (N) l»F (N* 1 ) ■ 

BtFlN) 1. 

V 

c 

40 

TRANS  * OLNEDT/EM 

Tofr® 

c 

the  first  Equation  is  fiii  - f<2>  « o — 

It  h 

AIM)  ■ 0. 

BOLT  2 

407 

Ad. 21  ■ 1.0 

BOLTZ 

408 

Ad,3»  * - 1.0 

BOLTZ 

409 

Ol  * Qm  d <2 ) /2. 

BOLTZ 

410 

pi  3 (kT»QM (1,2)  ♦ ES03*0M (1,1)) /Ox 

BOLTZ 

All 

00  I I * 2. M 

BOLTZ 

412 

Q2  * QM 11 «2) /2. 

BOLTZ 

413 

P2  , «kT*QH|J,2>  ♦ ES03»QM(I.1))/Dx 

BOLTZ 

414 

Ol*G  * 0 . 

BOLTZ 

415 

00  4 J * 1 »NK 

BOLTZ 

418 

OlAG  * 01 AG  ♦ Nl ( J) *XQ< I « J) 

BOLTZ 

417 

JU  r UJ  * UCJI/OX 

BOLTZ 

M8 

1 J > l.JU 

BOLTZ 

4|9 

IF  (IJ.GT.H)  GO  TO  4 

BOLTZ 

420 

IF  (IJ.LT.ll  GO  TO  4 

BOLTZ 

421 

Dl*G  * 01  AG  » N2(J)*XQ( IJ.JI 

BOLTZ 

422 

4 

continue 

BOLTZ 

423 

ROOT  * SORT ( X { I ) ) 

BOLTZ 

424 

A d , 1 ) * PI  - 01 

BOLTZ 

425 

A d ,2)  ■ - P2  - PI  • 02  - Ql  - (01  AG  ♦ ROOT*TRANS»*OX 

BOLTZ 

428 

Ad. 3)  * P2  ♦ Q2 

BOLTZ 

427 

Pi  3 P2 

BOLTZ 

428 

1 

Ol  3 02 

BOLTZ 

429 

c 

BOLTZ 

430 

IF  (nE.EO.O.)  GO  To  10 

BOLTZ 

431 

c 

INTEGRAL  OF  F(U!  <FOR  E-E  SCATTERING)  — 

BOLTZ 

432 

CALC  SIMPSON  (F.  HeSH/2,  I.*  FINT) 

BOLTZ 

433 

c 

BOLTZ 

434 

c 

c 

BOLTZ 

438 

c 

calculate  the  rhs  vector  b,  which  contains  all  of  the 

OFF-0 I AGONAL 

BOLTZ 

437 

c 

PARTS  OF  the  INELASTIC  collision  TERHS.  oefineo  in  terns  of  the 

BOLTZ 

438 

c 

PRESENT  distribution  vector  FIN  1 : 

BOLTZ 

439 

c 

BOLTZ 

440 

10 

IF  (ITeR.EO.ITMAX)  GO  to  98 

BOLTZ 

441 

CALL  SEC0N0  (TIME) 

BOLTZ 

442 

TIME  * TIME-TO 

BOLTZ 

443 

IF  (TImE.GT.TMAX)  go  to  98 

BOLTZ 

444 

iter  3 I TER. 1 

BOLTZ 

445 

edi  = o. 

BOLTZ 

446 

00  5 I ■ 2.M 

BOLTZ 

447 

OFF  30. 

BOLTZ 

448 

DO  8 J * ltNK 

BOLTZ 

449 

JU  3 U(J)/UX 

BOLTZ 

450 

IF  (NCLUI  .LT.O)  GO  to  8 

BOLTZ 

451 

c 

BOLTZ 

452 

c 

collisions  «of  the  first  kino)  in  which  Electrons 

ARE 

BOLTZ 

453 

c 

scattered  into  energy  x<n,  losing  energy  uiji  — 

BOLTZ 

454 

IJ  ■ I«JU 

BOLTZ 

455 

IF  dJ.GT.M)  GO  TO  6 

BOLTZ 

456 

IF  dJ.LT.l)  GO  TO  6 

BOLTZ 

457 

72 


OFF  * OFF  » XQ(IJ.J)«Fdj)»Nl  ( J) 

BOLTZ 

*58 

c 

boltz 

*59 

6 

If  (NE|_<J*  •GT.O)  Go  TO  8 

boltz 

*60 

c 

BOLTZ 

*61 

c 

COLLISIONS  (OF  the  secono  kino)  in  which  electrons  are 

BOLTZ 

*62 

c 

scattered  into  energy  xcn.  gaining  energy  uu>  — 

BOLTZ 

*63 

IJ  * I-JU 

BOLTZ 

*6* 

IF  (U.LT.l)  GO  TO  8 

BOLTZ 

*65 

IF  (IJ.GT.M)  go  TO  8 

boltz 

*66 

0 fF  « OFF  ♦ XQ  d * J)  *F  ( I J) *N2 ( J) 

BOLTZ 

*67 

c 

BOLTZ 

*68 

8 

continue 

BOLTZ 

*69 

5 

BH|  « - «C»S  < 1 1 ♦ OFF  I •DX 

BOLTZ 

*70 

c 

boltz 

*71 

c 

PUT  THE  DELTA-FUNCTION  singularity  ARISING  FROM  SECONDARY  ioniza- 

boltz 

*72 

c 

t Ion  and  external  creation  OF  ELECTRONS  AT  ZERO  energy  at  U « ox 

BOLTZ 

*73 

c 

(I.E.t  AT  I > 21  — 

BOLTZ 

*7* 

e<2)  • 8(2)  - (IONIZE  * SO > /EM 

BOLTZ 

*75 

c 

BOLTZ 

476 

477 

c 

c 

BOLTZ 

*78 

c 

SOLVE  THE  LINEAR  EQUATION:  A (FIN  1 ) *FIN» 1 ) « B(FJNl)  — 

BOLTZ 

*79 

c 

BOLTZ 

*80 

c 

THIS  LOOP  FOR  SOLVING  A*FIn»I)  * B WILL  ultimately  place  the  solu- 

boltz 

*81 

c 

TlON  F( N» 1 ) INTO  THE  VECTOR  G.  AND  OOES  NOT  DESTROY  THE  MATRIX  A 

boltz 

*82 

c 

CONSTRUCTED  ABOVE.  THE  SOLUTION  WORKS  DOWNWARD  (ANNIHILATING  THE 

BOLTZ 

*83 

c 

LOwER  DIAGONAL)  BY  MEANS  OF  ELEMENTARY  ROW  OPERATIONS.  FOLLOWED 

BOLTZ 

*8* 

c 

wUh  Back  substitution  upwaRos. 

BOLTZ 

*85 

c 

BOLTZ 

*86 

c 

in  THE  DOWNWARO  ANNIHILATION  OF  the  LOVER  DIAGONAL.  THE  VECTOR 

boltz 

*87 

c 

GlI)  is  temporarily  used  to  STORE  THE  COEFFICIENTS  OF  F ( I ♦ 1 ) — 

BOLTZ 

*88 

c 

BOLTZ 

*89 

G ( 1 ) * Ad. 3) / A (1*2) 

BOLTZ 

*90 

8 d ) « B ( 1 > /A  O .2) 

BOLTZ 

*91 

F I * -F(l>/2. 

boltz 

*92 

F2  a F3  * 0. 

BOLTZ 

*93 

ELECT  * PNEW  a 0. 

BOLTZ 

*9* 

A2  a B2  ■ 0. 

boltz 

*95 

XHALF  a DX/2. 

boltz 

*96 

IF  (NE.EQ.O.)  GO  TO  35 

BOLTZ 

*97 

c 

debye  length  for  plasma  — 

BOLTZ 

*98 

DEBYE  = SQRT(KTE/U.#PI*NE»ESQH 

BOLTZ 

*99 

c 

classical  distance  of  closest  approach  — 

BOLTZ 

500 

RM In  * 300.«ESU/UBAR 

BOLTZ 

501 

L*M8DA  * DEBYE/RMIN 

BOLTZ 

502 

log  a ALOG) LAMBDA) 

BOLTZ 

503 

35 

0°  26  I * l.M 

BOLTZ 

50* 

A I a A2 

BOLTZ 

505 

B>  » 82 

BOLTZ 

506 

IF  (NE.EQ.O.)  GO  TO  20 

boltz 

507 

XROOT  a SORTIXdl  ) 

boltz 

508 

X32  a x (I > • XROOT 

boltz 

509 

Fl  i F|  > FlI) 

BOLTZ 

510 

F2  a F2  * XROOT*F ( I • 

BOLTZ 

Sll 

Fl  a F]  • X32*F(I> 

boltz 

512 

x32  « XHALF. #1. 5 

boltz 

513 

XHAtF  a XHALF  « OX 

boltz 

51* 

i 
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20 


c 

c 

c 


c 

c 

c 

c 

c 

c 


pu  a P]NT(U)/DU,  AND  OU  • QlNT(U)/2. 

BOLTZ 

5)5 

PU  a F3  * *32*(FINT-F1) 

BOLTZ 

516 

PU  s PU  * PU 

BOLTZ 

517 

Oil  * l.5*F2»0X 

BOLTZ 

5lB 

A2  a CONSTMPU  ♦ OU)*LOG 

BOLTZ 

519 

82  * CONST* (PU  - OU)*LOG 

BOLTZ 

520 

DF  3 FAVG2  3 o. 

BOLTZ 

521 

if  (I.LT.M)  of  * f ( i • i ) - rdi 

BOLTZ 

522 

(I.lT.MI  FAVG2  » F(I»n  ♦ F(I) 

BOLTZ 

523 

POLO  * PNEW 

BOLTZ 

52* 

PNEw  * (PU*OF  ♦ QU*FAVG2I*L0G 

BOLTZ 

525 

ELECT  a ELECT  ♦ 0.5* (POLO  ♦ PNEW) 

BOLTZ 

526 

IF  ( I .fQ. 1 ) GO  TO  26 

BOLTZ 

527 

Bill  * B(I)  - ( A ( I • 1 ) * 81 ( *B( 1-1 1 

BOLTZ 

528 

Gil)  * A(I»3>  . A2 

BOLTZ 

529 

0 * < A ( I « 2 > - Al  - 82)  - ( A ( I « 1 ) ♦ B1)*6(I*1I 

BOLTZ 

530 

Bll)  * BID/O 

BOLTZ 

531 

G 1 1 ) = G( I I/O 

BOLTZ 

532 

continue 

BOLTZ 

533 

BOLTZ 

53* 

UPWARD  BACK  SUBSTITUTION,  WITH  NEW  SOLUTION  INTO  G — 

BOLTZ 

535 

BOLTZ 

536 

G IN ) * BIN) 

BOLTZ 

537 

00  3 J * l •MESH 

BOLTZ 

538 

I * M-J 

BOLTZ 

539 

G 1 1 ) * B(I)  - G(Il*G(I»l) 

BOLTZ 

5*0 

BOLTZ 

541 

so 

BOLTZ 

5*3 

RENoRNALIZE  the  NEW  DISTRIBUTION  FUNCTION.  AND  TEST  FOR 

BOLTZ 

5** 

convergence  — 

BOLTZ 

5*5 

BOLTZ 

5*6 

00  25  I * l.M 

BOLTZ 

5*7 

Bll)  * SORT  (X(D)*GII) 

BOLTZ 

5*8 

BOLTZ 

5*9 

call  simpson  (b.  mesh/2,  ox.  fnorh> 

BOLTZ 

550 

call  SIMPSON  (G.  MESH/2,  1.0.  GINT) 

BOLTZ 

551 

FlNT  = GINT/FNORM 

BOLTZ 

552 

BOLTZ 

S53 

DELTA  X 0. 

BOLTZ 

55* 

EbrOR  = .FALSE. 

BOLTZ 

555 

CONVRGE  * .TRUE. 

BOLTZ 

556 

DO  11  I * 1 *M 

BOLTZ 

557 

FOLD  * F(I) 

BOLTZ 

558 

rill  * Glll/FNORM 

BOLTZ 

559 

FNEw  * F ( I ) 

BOLTZ 

560 

B<1)  > B ( I ) *X ( I ) 

BOLTZ 

561 

F 1 x ABS(FOlD) 

BOLTZ 

562 

F 2 3 ABS(FNEW) 

BOLTZ 

563 

FMAx  X FI 

BOLTZ 

564 

IF  (F2.GT.F1)  fMa*  * F2 

BOLTZ 

565 

ERROR  * ERROR. OR. IFNEW.LT.O.) 

BOLTZ 

566 

eta  s o. 

BOLTZ 

567 

IF  ( (FMAX. AND. MASK) .NE.O)  ETA  x ABS (FNEW-FOLO) /FMAX 

BOLTZ 

568 

IF  (ETA.GT.OELTA)  OELTA  x eta 

BOLTZ 

569 

TEST  x ETA. LE. EPSILON 

BOLTZ 

S70 

CONVRGE  * C0NVRGE.ANO.TEST 

BOLTZ 

571 

74 


c 

CUNyRGC  * CONVRGE. AND. (.NOT. ERROR) 

CALL  SIMPSON  (B»  MESH/2,  Dx.  UBAR) 

UBAr  * UBAR/FNORM 
rTE  * (2./3.)*E*UBaR 

TE  a KTE/KB 

IF  (.NOT.COnVRGE)  go  To  10 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

572 

573 

574 

575 

576 

577 

578 

c 

c 

BOLTZ 

580 

c 

CALCULATE  The  forward  and  REVERSE  COLLISION  RATES  VSIG(ltJ)  AND 

BOLTZ 

581 

c 

VSIGI2, J)  1CM3/SEC)  AND  NET  POWER  BALANCE  POWER (J) 

1 WATT/ELECTRON) 

BOLTZ 

582 

c 

FOR  EACH  of  THE  INELASTIC  PROCESSES  J — 

BOLTZ 

583 

c 

BOLTZ 

584 

65 

DLNEDTO  * olnedt 

BOLTZ 

585 

pcoll  = o. 

BOLTZ 

586 

c 

IONIZE  and  ATTACH  are  THE  IONIZATION  and  ATTACHMENT 

frequencies— 

BOLTZ 

587 

IONIZE  * ATTACH  * 0. 

BOLTZ 

588 

DO  16  J « l.NK 

BOLTZ 

589 

FORWARD  * REVERSE  * o. 

BOLTZ 

590 

jU  a UJ  * U(J)/OX 

BOLTZ 

591 

DO  15  1 * l.M 

BOLTZ 

592 

A<I,1)  * F ( I ) *xQ ( I « J) 

BOLTZ 

593 

A<1, 2)  ■ 0, 

BOLTZ 

594 

IJ  a I.JU 

BOLTZ 

595 

IF  (IJ.LT.l)  GO  TO  IS 

BOLTZ 

596 

IF  (IJ.GT.M)  GO  TO  IS 

BOLTZ 

597 

A<I, 2)  * F(I)»XQIIJ.J) 

BOLTZ 

598 

15 

Ad, 3)  « X 1 1 » »A  ( I , 1 > 

BOLTZ 

599 

c 

BOLTZ 

600 

C*LL  SIMPSON  1 A 1 1 • 1 1 » MPTS,  OX,  VSlGll.J)) 

BOLTZ 

601 

C*Ll  SiMPSOn  ( A 1 1 ,2) , MPTS,  DX,  VSlG<2.J>> 

BOLTZ 

602 

c 

BOLTZ 

603 

c 

NOTES  EM  * SQRT12U.602E-12)/9.31E-2B)  « 5.866E  07 

EV»»(-1/2)CM/S. 

BOLTZ 

604 

c 

UNITS  OF  F (U) UQ tU) DU  ARE  EV#*U/2>CM2»  so  result  FOR  «vsig>  will 

BOLTZ 

605 

c 

BE  IN  UNITS  OF  CM3/SEC. 

BOLTZ 

606 

c 

BOLTZ 

607 

VSIGU’J)  * EM*VS IG ( 1 , J) 

BOLTZ 

608 

VSlG«2»Jl  * EM«VSIG(2,J) 

BOLTZ 

609 

c 

BOLTZ 

610 

IF  (NEL 1J> .LT.O)  GO  TO  24 

BOLTZ 

611 

FORWARD  a u ( J) •VSIGl 1 , J) 

BOLTZ 

612 

REVERSE  a U( J)*VSIG(2,J) 

BOLTZ 

613 

GO  TO  27 

BOLTZ 

614 

c 

BOLTZ 

615 

24 

call  simpson  <a(1o»»  mpts,  ox,  forward) 

BOLTZ 

616 

forward  * em#forward 

BOLTZ 

617 

c 

BOLTZ 

618 

27 

POWER(J>  * C0» ( N 1 (J)*F OR WARD  - N2 1 J) ‘REVERSE ) 

BOLTZ 

619 

c 

BOLTZ 

620 

FREQ  * Nl ( J) *VSIG( 1 , J) 

BOLTZ 

621 

IF  (NELIJ).EO.«l)  IONIZE  * IONIZE  ♦ FREQ 

BOLTZ 

622 

IF  (NEL(J).EQ.-l)  ATTACH  * ATTACH  » FREQ 

BOLTZ 

623 

c 

BOLTZ 

624 

16 

pCOLL  a PCOLL  ♦ POWER IJ) 

BOLTZ 

625 

DLNeDT  * SEXT  ♦ IONIZE  - attach 

BOLTZ 

626 

IF  (ITMAX.LE.O)  GO  TO  60 

BOLTZ 

627 

c 

BOLTZ 

628 

75 


c 

D/OTINE)  IS  DETERMINED  SELF-CONSISTENTlY  by 

AN  ITERATIVE 

LOOP.  IF  BOLTZ 

629 

c 

THE  CHANGE  in  the  (LOGARITHMIC)  DERIVATIVE 

OF  NE  BECOMES 

< 2 ».  NO  BOLTZ 

630 

c 

further  iteration  is  required  — 

BOLTZ 

631 

c 

BOLTZ 

632 

IF  (ABS(DLNEDT-OLNEOTO) ,GT.ABS(DLNEDT)/50.) 

GO  TO 

60 

BOLTZ 

633 

c 

BOLTZ 

634 

IF  (EPs-GE. EPSILON)  GO  TO  60 

BOLTZ 

635 

c 

fine  tuning  of  calculation  — 

BOLTZ 

636 

EPSILON  * EPS 

BOLTZ 

637 

GO  TO  AO 

BOLTZ 

638 

c 

BOLTZ 

639 

c 

DETERMINE  CP  TIME  REQUIRED  FOR  OBTAINING  FtU)  — 

BOLTZ 

640 

60 

CALL  SeCONO  (TIME) 

BOLTZ 

641 

time  * time-to 

BOLTZ 

642 

c 

BOLTZ 

643 

* 

c 

BOLTZ 

645 

xBAr  a -OX/2. 

BOLTZ 

646 

DO  9 1 * 1»M 

BOLTZ 

647 

G ( I ) * F(I)/F(J) 

BOLTZ 

648 

Bill  s B ( I ) *X ( I ) 

BOLTZ 

649 

call  InTERP  (1.  XBaR.  QMAVG»  X,  OM (1*1) » 1, 

M) 

BOLTZ 

650 

A T I « 1 ) * F(I)*x(I)*X(I)/QMAVG 

BOLTZ 

651 

IF  (F(I).GT,1.E-20»F(1|)  MP  * I 

BOLTZ 

652 

9 

xBAr  a XBAR  . OX 

BOLTZ 

653 

c 

BOLTZ 

654 

c 

F Has  been  NORMALIZED  TO  INTI0U*SQRT(U)»F(UI I a 1* 

AND 

G(I)  a BOLTZ 

655 

c 

Fll)/F(l). 

BOLTZ 

656 

c 

BOLTZ 

657 

c 

ELASTIC  COLLISION  FREQUENCY  NU! 

BOLTZ 

658 

c 

BOLTZ 

659 

call  Simpson  (a,  mpts,  ox.  nu> 

BOLTZ 

660 

NU  = em»nu 

BOLTZ 

661 

c 

BOLTZ 

662 

c 

CALCULATE  AVERAGE  ENERGY  and  effective  temperature 

— 

BOLTZ 

663 

V 

BOLTZ 

664 

if  (ITER.GT.0I  GO  TO  75 

BOLTZ 

665 

call  Simpson  ib,  mesh/2,  ox.  urar) 

BOLTZ 

666 

UBAr  a UBAR/FNORM 

BOLTZ 

667 

kTE  = (2./3.)*E»U8aR 

BOLTZ 

668 

TE  a KTE/KB 

BOLTZ 

669 

c 

BOLTZ 

670 

c 

BOLTZ 

672 

c 

CALCULATE  OiFFUSIOn  COEFFICIENT  0.  MOBILITY 

MU.  CHARACTERISTIC  80LTZ 

673 

c 

energy  ek  = d/mu,  drift  velocity  vo  * mu*evcm,  and 

THE 

FORWARD  AND  BOLTZ 

674 

c 

REVERSE  ELASTIC  POWER  transfer  — 

BOLTZ 

675 

c 

BOLTZ 

676 

75 

F 1 a F ( 1 ) 

BOLTZ 

677 

DO  12  I * I. MESH 

BOLTZ 

678 

FO  a FI 

BOLTZ 

679 

F 1 a F ( I ♦ 1 ) 

BOLTZ 

680 

FAVg  * (FO  . Fl>/2. 

BOLTZ 

681 

OF  a FI-FO 

BOLTZ 

6B2 

A d.l)  ■ OM(  1,1). FAVG 

BOLTZ 

683 

A<1.2>  * QM  ( I « 1 ) *DF 

BOLTZ 

684 

A ( I , 3)  ■ OM(I,2).FAVG 

BOLTZ 

685 

76 


J 


12  B < 1 1 = QH(I,2)»0F 

BOLTZ 

6«6 

A«M,11  = QM(M,n«Fl 

BOLTZ 

607 

A(M,2J  = UM(M,1)»0F 

BOLTZ 

60S 

A<M,3)  = QM(H,2)*F1 

BOLTZ 

609 

8(H)  = UM(M,2)*0F 

BOLTZ 

690 

c 

BOLTZ 

BOLTZ 

691 

69? 

c 

BOLTZ 

693 

c 

DIFFUSION  COEFFICIENT  D (CM2/SECI  — 

BOLTZ 

694 

c 

BOLTZ 

695 

CALL  SIMPSON  ( A ( I * 1 ) « MPTSf  DXf  D> 

BOLTZ 

696 

D * EM. D/3. 

BOLTZ 

697 

c 

BOLTZ 

690 

c 

MOBILITY  MU  (CM2/VOLT/SEC1  — 

BOLTZ 

699 

c 

BOLTZ 

700 

C*Ll  SIMPSON  (A(lt2)t  MPTSt  I. Of  Mu) 

BOLTZ 

701 

c 

INTEGRATION-0Y-PARTS  correction  term  — 

BOLTZ 

702 

MU  * Mu  - EMAX*A(M,2)/DX 

BOLTZ 

703 

Mu  = “ EM.MU/3. 

BOLTZ 

7 04 

c 

BOLTZ 

70S 

E*  5 D/MU 

BOLTZ 

706 

VO  x Mu*EVCM 

BOLTZ 

707 

AMPs  = E*1.0E-07»VO 

BOLTZ 

700 

CONd  = E»l.0E-07»MU 

BOLTZ 

709 

RHp  = l./CONO 

BOLTZ 

710 

CONOUCT  * NE»COND 

BOLTZ 

711 

DNEDT  = ne*dlneot 

BOLTZ 

712 

c 

BOLTZ 

nOLTZ 

713 

714 

c 

c 

BOLTZ 

715 

c 

forward  <pf)  ano  reverse  <pR)  elastic  power  — 

BOLTZ 

716 

c 

BOLTZ 

717 

CALL  SIMPSON  < A ( 1 f 3) t MPTSf  OXf  PF) 

BOLTZ 

718 

PF  * C0«EM*PF 

BOLTZ 

719 

c 

BOLTZ 

720 

call  Simpson  (89  MpTSf  \.0f  pr> 

BOLTZ 

721 

Pr.«  C0»EM»KT*PR 

BOLTZ 

722 

c 

BOLTZ 

723 

ELASTIC  ■ PF  » PR 

BOLTZ 

724 

c 

BOLTZ 

725 

c 

ELECTRIC  discharge  POWER  DENSITY  — 

BOLTZ 

726 

DlSCH  * CO*MU»EVCM«EVCM 

BOLTZ 

727 

c 

BOLTZ 

720 

c 

rate  of  change  of  stored  electron  KINETIC  ENERGY  — 

BOLTZ 

729 

DEDt  ■ C0#UBAR*DLNEOT 

BOLTZ 

730 

c 

BOLTZ 

731 

pTOTAL  * OISCH  ♦ OEPOSIT 

BOLTZ 

732 

PWR  « PCOLL  . ELASTIC  ♦ DEDT 

BOLTZ 

733 

c 

ELECTRON-ELECTRON  scattering  power  discrepancy  — 

BOLTZ 

734 

elect  * CO»EM*CONST»DX.ELECT 

BOLTZ 

735 

c 

BOLTZ 

736 

if  (PToTAL. EQ. 0. ) GO  TO  S3 

BOLTZ 

737 

P » PTOTAL/lOOf 

BOLTZ 

7 10 

PC  T ( 1 ) = ELASTIC/P 

BOLTZ 

739 

PcT(2>  . PCOLL^P 

BOLTZ 

740 

PC T (3)  * DEDT/P 

BOLTZ 

741 

PcT(f)  * ELECT/P 

BOLTZ 

742 

77 


Pel  IS)  = DISCh/P 

BOLTZ 

743 

PCT(6)  a OEPOSIT/P 

BOLTZ 

744 

percent  = pct<i>  ♦ pct<2)  ♦ pct(3>  ♦ pctiai 

BOLTZ 

745 

pral  = percent  - 100. 

BOLTZ 

746 

GO  TO  54 

BOLTZ 

747 

c 

BOLTZ 

748 

53 

PMAX  = AM AX  1 I ABS ( EL AST IC) . ABS(PCOLL),  ABS(OEOT)) 

BOLTZ 

749 

P * ELASTIC  * ELECT  • PCOLL  » DEOT 

BOLTZ 

750 

PRAL  * 100 .*P/PMAX 

BOLTZ 

751 

c 

BOLTZ 

752 

54 

ra  = 2. /«kte/e)*«i. s/sort <pi) 

BOLTZ 

753 

EX  = ExP(-E»OX/KTE| 

BOLTZ 

754 

DO  19  I = l.M 

BOLTZ 

755 

B 1 I ) = F<I)/FB 

BOLTZ 

756 

19 

FB  a FR»EX 

BOLTZ 

757 

c 

BOLTZ 

758 

c 

BOLTZ 

760 

c 

table  of  plasma  parameters  (ubar.  te.  vo.  o.  ...  etc.)  — 

BOLTZ 

761 

c 

BOLTZ 

762 

ngi  a ngas-i 

BOLTZ 

763 

IF  (.NoT.OUTIl))  GO  to  21 

BOLTZ 

764 

NX  a 68-6*NGAS 

BOLTZ 

765 

encode  (150, 250. FORM)  NX.  NGI,  NGl 

BOLTZ 

766 

WRITE  (6.350)  KAPTlON 

BOLTZ 

767 

IF  (NGAS.EQ.l)  WRITE  16.210)  NAME  1 1 ) 

BOLTZ 

768 

IF  (NGAS.GT.l)  WRITE  ( 6. FORM ) <NAME(l>.l-l.NGAS).(Fl<I).Ial,NGAS> 

BOLTZ 

769 

c 

BOLTZ 

770 

WRITE  (6.100)  EVCM,  TMOL . NMOL.  PTOT,  aTM,  EN.  ep.  kvcmatm,  ubar. 

BOLTZ 

771 

1 TE.  0.  Mu.  EK.  VO.  COND,  CONDUCT.  RhO.  AMPS,  OISCH,  KAPT. 

BOLTZ 

772 

2 DEPOSIT.  KAPT,  PTOTAL.  KAPT,  PCOLL*  KAPT,  ELASTIC.  KAPT,  DEOT. 

BOLTZ 

773 

3 KAPT*  PWR,  KAPT,  NU.  NE.  FE.  SO,  SB,  IONIZE,  ATTACH,  OLNEDT , 

BOLTZ 

774 

4 ONEOT 

BOLTZ 

775 

c 

BOLTZ 

776 

WRITE  (6.380)  MESH,  EMAX.  DX 

BOLTZ 

777 

c 

BOLTZ 

778 

c 

BOLTZ 

779 

c 

BOLTZ 

780 

c 

TABULAR  OUTPUT  OF  ELECTRON  ENERGY  DISTRIBUTION  FUNCTION  — 

BOLTZ 

781 

c 

BOLTZ 

782 

21 

NX  a 58  - 6»NGAS 

BOLTZ 

783 

ENCODE  (ISO, 220. FORM)  NX,  NGI,  NGl 

BOLTZ 

784 

IF  (. NOT. OUT (2) ) GO  TO  22 

BOLTZ 

785 

MULT  * (MESh-1 )/100  ♦ 1 

BOLTZ 

786 

DU  a MULT'OX 

BOLTZ 

787 

W«lTE  (6.350)  KAPTlON 

BOLTZ 

788 

WRITE  (6,200)  OU.  X (M) , MESH.  OX 

BOLTZ 

789 

WRITE  (6,3301  EN,  EP,  KVCMaTM 

BOLTZ 

790 

IF  (FE.GT.3.)  wRiTE  (6,320)  FE.  NE 

BOLTZ 

791 

IF  (NGAS.EQ.l)  GO  TO  17 

BOLTZ 

792 

WRITE  (6.F0RM)  (NAME(I).  I * l.NGAS).  ( F I ( I ) , I = 1 ,NGAS) , TMOL 

BOLTZ 

793 

GO  TO  7 

BOLTZ 

794 

17 

WRITE  (6.260!  NAME(l).  TMOL 

BOLTZ 

795 

7 

WRITE  (6.290) 

BOLTZ 

796 

WRITE  (6.2401  (X ( I ) , F ( I ) , I a l.M.MULT) 

BOLTZ 

797 

WRITE  (6.160) 

BOLTZ 

798 

|F  (ITeR.GT.O)  WRITE  (6.180)  TIME*  ITER.  DELTA.  PBAL 

BOLTZ 

799 

I 


WHITE  (6.280)  DATE 
22  If  (.NOt.OUTOM  GO  TO  23 


plot  the  distribution  function  f(Ui/f(o)  — 

WHITE  (6.1101  Fill 

write  (6.330)  EN.  EP»  KVCMaTH 

IF  (FE.GT.O.)  WRITE  (6,320)  EE,  NE 

IE  (NGAS.EO.l)  WRITE  (6.260)  NAME <1 ) • TMOL 

IE  (NGAS.GT.l)  WRITE  (6.F0RM)  (NAMe(I).  I * I.NGAS), 

1 (El  (I) »I*1 , NGAS  > * TMOL 

OE  = 2. 

IE  (GCMP) .GT.I.E-10)  DE  * 1. 

FO  x -10.*0F 

CALL  PxLOGY  (MAX,  MP,  1,  G,  FO.  DE,  X,  0.,  0.»  .TRUE.,  .FALSE., 

i.true.,  .true.,  .true.,  title,  i,  o) 

WRITE  (6.150)  DATE 


BOLTZMANN  DISTRIBUTION  FUNCTION  WITH  EFFECTIVE  TEMPERATURE  TE  IS 
GIVEN  BT  EB(U.TE)  = 2(KTE/E>#*(-3/2)/S0RT(PI)»EXP(-E*U/KTE) . PLOT 
F(U|/FB(U.TE)  — 

23  IE  (.NOT.OUT(A) ) GO  TO  30 

WRITE  (6.120)  TE 

W#lTE  (6.330)  EN.  EP»  KVCMaTM 

IE  (FE.GT.O.)  WRITE  (6,320)  EE.  NE 

IE  (NGAS.EO.l)  WRITE  (6.260)  NAME < 1 ) » TMOL 

IF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAMe(I).  I * I.NGAS). 

1 (Fill),  I * I.NGAS).  TMOL 

CALL  PxLOGY  (MAX.  MP.  1.  B.  -4.0.  .5,  X*  0..  0..  .TRUE..  .FALSE.. 

i .True.,  .true.*  .true.,  title.  i»  o> 
white  (6.150)  OATE 


tabular  plot  of  collision  rates,  power  transfer  — 

30  IE  (.NOT.OUT(S) ) Go  TO  99 
SMP  * SH(lHl) 

LSK IP  X IH 

IE  (SB.EO.O. ) LSKIP  = 1H« 

L « 15 

LIRE  * LL  = 0 
00  IB  J = l.NK 
IE  (LL.NE.LINE)  GO  TO  28 
J1  = L - (NK-J«I) 

IF  (J1.GT.7)  Jl  * 7 

IF  (JI.GE.l)  ENCOOE  (10.300.SKIPI  Jl 


80LTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 

BOLTZ 


79 


WRITE  (6, SKIP)  BOLTZ 

WRITE  <6, 270)  MPTION  BOLTZ 

WRITE  (6,330)  EN.  EP,  KVCMATM  BOLTZ 

IF  (NE.GT.O.)  WRITE  (6020)  FE»  NE  BOLTZ 

IF  (NGAS.EQ.l)  WRITE  (6,260)  NAME  1 1 ) • TMOL  BOLTZ 

IF  (NGAS.GT.l)  WRITE  (6, FORM)  (NAME(I),I  a l.NOAS),  BOLTZ 

1 (FI ( I ) « 1*1 ,NGAS ) » TMOL  BOLTZ 

WRITE  (6, 140)  U0AR,  TE»  VO,  MU  BOLTZ 

WRITE  (6,230)  KaPT  BOLTZ 

IF  (LINE.GT.O)  GO  TO  28  BOLTZ 

write  (6,i7o)  Elastic  boltz 

if  (PTOTAL.NE.O.)  WRITE  (6,420)  PCT(l)  BOLTZ 

IF  (SB.NE.O.)  WRITE  (6.430)  SB  BOLTZ 

IF  (SO.NE.O.)  WRITE  (6.390)  LS«IP.  SO  BOLTZ 

2B  IF  (Nl(J)»N2(J).EQ.O.)  GO  TO  IB  BOLTZ 

LINE  = LINE.l  BOLTZ 

FREQ  a NEL(J)*N1 (J)*VSIG(1.J)  BOLTZ 

IF  (PTOTAL.NE.O.)  PCTJ  a POWER(J)/P  BOLTZ 

DO  29  I * 1.6  BOLTZ 

29  NOuT(I)  * lH  BOLTZ 

IF  (Nl(J).NE.O.)  ENCODE  ( 10. 190  .NOuT  ( 1 > I NKJ)  BOLTZ 

IF  )N2(J> .NE.O.)  ENCODE  ( 10. 190 .NOUT (2) ) N2(J)  BOLTZ 

IF  (NEL ( J> •GE.O)  ENCODE  ( 10.360.NOUT (3) I U(J)  BOLTZ 

IF  (NEL (J> .NE.O)  ENCODE  ( I0.l90.NOuT (6)1  FREQ  BOLTZ 

ENCODE  ( 10. 190. NOUT (5) ) VSIG(I.J)  BOLTZ 

IF  (NEL(J>.EQ.O)  ENCOOE  ( 10. 190.N0UT (6) ) VSIG(2.J>  BOLTZ 

BOLTZ 

WHITE  (6.130)  LINE.  (PROCESS ( I ,J) . I * 1.4).  NOUT.  POWER(J)  BOLTZ 

IF  (PTOTAL.NE.O.)  WRITE  (6,420)  PCTJ  BOLTZ 

BOLTZ 

LL  a l*(line/l>  boltz 

IF  (LL.EQ.LINE)  WRITE  (6.160)  BOLTZ 

IB  continue  BOLTZ 

IF  (LL.NE.LINE)  WRITE  (6.160)  BOLTZ 

PWR  a pwR  « ELECT  BOLTZ 

IF  (PToTAL.EQ.O.)  GO  TO  55  BOLTZ 

WRITE  (6.370)  DISCH.  KAPT.  PCT<5>.  PCOLL.  PCT(2).  OEPOSIT,  KAPT.  BOLTZ 
I PCT ( 6 ) . ELASTIC,  PCT(I),  OEOT,  PCT (31  BOLTZ 

IF  (NE.GT.O.)  WRITE  (6,310)  ELECT.  PCT(4)  BOLTZ 

WRITE  (6.340)  PTOTAL.  KAPT,  PWR,  PERCENT  BOLTZ 

GO  TO  56  BOLTZ 

55  WRITE  (6.400)  PCOLL*  KAPT.  ELASTIC,  KAPT.  OEOT,  KAPT  BOLTZ 

IF  (NE.GT.O.)  WRITE  (6.310)  ELECT  BOLTZ 

WRITE  (6.410)  PWR,  KAPT  BOLTZ 

56  IF  (ITER.GT.O)  WRITE  (6,1801  TIME*  ITER.  OELTA,  PBAL  BOLTZ 

WRITE  (6.280)  DATE  BOLTZ 

BOLTZ 

GO  TO  99  BOLTZ 

BOLTZ 

— FORMAT  STATEHFNTS  — BOLTZ 

C BOLTZ 


100  FORMAT  (/60**PLASMa  PARAMEtERs»//4Rx.42> 1h-)//50x*E  (FIELO)»4X»«  * BOLTZ 
llPEll.4»3A»VOLT/CN*//50X»TMOL»RX«  a »0PF8. 0 . 6X»0EG  K»/50X»NMOL»8X  BOLTZ 
2*  * •lPElI.4,3x»CN-3»/50X»PTOT«SX»  a »0PF9. 1 ,SX»T0RR»/62X»  a »f8.2  BOLTZ 
3. 6X» ATM,//50X,E/N,9X*  • • lPE 1 1 . 4. 3x* VOl T CM2»/50X*E/P»9X*  a *0PF8.  BOLTZ 
42»6X»W/CH/ToRR«/62X#  » •FB.2,4x»KV/CH/AtMa//50X««U»«9x«  * «0PF8.3.  BOLTZ 


I 


c 


c 


c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 


c 

c 


6F9.2,5x»CM2/SEC*/SOX»MOBILITy  mu  = *F8. 1 «6X*CM2/VOLT/S*/S0X*EK  * 
7D/MU*3x*  * *0PF8.3,6X*EV*/50X#VDRIFT  *MU*E  * W1PE1 1 .4,3X*CM/SEC*// 
850X«cONOUCT/NE  * *E1 1 .4, 3X*CM2/OhM*/50X*CONDUCT*SX*  * *EU.4,3X 
9*/OhM-cM»/S0XXRHO«nEX6X*  * *El 1 .4. 3X*OhM/CM2*/50XW J/NE  * E*VD  * * 
SEH.4.3X*AMp  CM/EL*//50X*OISCHARGE*3X*  « *E1I .4.3X.A10/50X*DEPOSIT 
1J0N  , *EU.4.3X.AlO/50X*TOTAL  POWER  * *E11.4.3X.A10//SOX*1NELAS 
2TIC  ■ *E1 1 ,4.3X. Al0/50X*£LASTIC  HEAT  • *E1 1 .4,3X,A10/50X*E«U>DN 

3E/0T  * *Ell.4»3X, A10/50X*POWER  OISS  * *E1 1 .4,3X.A10//50X*NU<MO 

4M>*5X*  ■ *E | 1 ,4*3X*SEC-1*//50X*NE*10X*  * *E11 .4.3X*CM-3*/50X*NE/NM 
50L*SX*  = *EU.4/S0x*S(U  * 0)/NE  * *Ell.4,3x*SEC-l*/S0X*S(U  » 0>/N 

6E  = *Ell.4.3X*SEC-l*/50X*NU(IONlZE)  * *E1 1 .4« 3X*SEC- 1*/50X*NU ( A 
7TT»REC>  * *E11.4.3X*SeC-1*/50X*DNE/DT/NE  * »Ell .4,3X*SEC-l*/50 

8X*0nE/0T»6X*  * *E11.4.3X*CM-3/SEC*//48x.42(1h-> ) 

1 1 0 FORMAT  (1H1,9x.  ‘LOG  PLOT  OF  ELECTRON  DISTRIBUTION  F<U)/F(0>  AS  A 
IFUNCTION  OF  ELECTRON  ENERGY  U (EVl , WHERE  F(0)  « *.1PE10.3.*  EV*. 
22H**,*(-3/2)*/) 

120  FORMAT  CIH1,17X»L0G  PLOT  OF  RELATIVE  ELECTRON  DISTRIBUTION  FUNCTIO 
IN  f (UI/E80LTZ (U.TE) * WHERE  TE  * (2/3IUAVG/KB  * *F6.0*  DEG  K*/> 

130  FORMAT  (/I3.3X.5A10.A12. A8.3A12* 1Pe13«3<0PF8.2) 

KO  FORMAT  <26X,*U(AVG)  * *.F6.3»*  EV»  TE  * *.F6,0.*  DEG  K.  VD  * *. 

1 1PE8.2*  CM/SEC.  Mu  = *E8.2*  CM2/VOLT/SEC*/) 

ISO  FORMAT  (/62x*ELECTR0N  ENERGY  U (EV)*16X*DR.  WILLIAM  B.  LAClNA.'Al 1 

i/10ox*northrop  research  and  technology*) 

160  FORMAT  «/lX,l3S(lH-)) 

170  format  (95x 'momentum  transfer  * *ipeio.3> 

mo  FORMAT  «/lX*F(U)  CONVERGED  IN*F5.1*  SEC.  INTIS'  ITERATIONS!  MAXIMU 

sm  Relative  change  in  last  iteration  <*ipeio.3*i  power  balance  accu 
SrACy  * *0PF6.2*  %.*) 

190  FORMAT  1 1 PE  10.3) 

200  FORMAT  (15X  *NORMALIZEO  ELECTRON  DISTRIBUTION  FUNCTION  F (U)  « IN 
1 UNITS  of  EV*,2H**.*(-3/2) . WITH  OUTPUT  AT*0PF6.3*  EV  INTERVALS.*/' 
2lSX*THE  ELECTRON  ENERGY  RANGE  I0.*0PF6.2*|  EV  WAS  SUBDIVIDED  INTO 

3*m*  Intervals,  giving  a resolution  * *fs,3*  ev.*/i 
210  format  (48X*GAS  mixture  — *//65X*PURE  *A3) 

220  FORMAT  (lH(,I2fAHXA3..I2.20H(*/*A3),*  * *2PF6.2. . I2.38H(*  /*F6.2). 
1*.  TMOL  **»0PF5.0*  DEG  K*/)) 

230  FORMAT  (2X*J*14X*REACTi0N(J)*2|X*N(A)*9X*N(B)*5X*U(J>*4X*DNE/0T/NE 
1*2X*<VSIG(A»»B)  > < VS IG ( Bi* A ) > (NET)  POWER  PERCENT*  /13X*A  » E(-)  «* 
2B  • E <-! *16x* (CM-3)*7X* (CM-3) «4X*  <EV> *SX* (SEC-1 )*4X* (CM3/SEC)*3X 
3* (CM 3/SEC) *3X* (*A9* ) POWER*/ IX. 135 ( 1 H— ) ✓ > 

240  FORMAT  (5 ( 0PF12.3* 1PE14.5) / ) 

250  FORMAT  (24H(48x.*GaS  MATURE  — •// , 1 2, 5HX . A3.  1 2. 20H ( •/•  A3 ) • = *.2 
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1PF6.2, , I2< 1 1H< • /*F6.2)>) 

260  FORMAT  (55*,»PURE  **A3,*  TMOL  «*.F5.0,*  DEG  K*/) 

270  FORMAT  (*8X,*aiO//30X*PLASMA  KINETICS  ANALYSIS  KITH  SUMMARY  OF  ELE 
ICTRON  PARAMETERS,  COLLISION  RATES. */31X*AND  POWER  BALANCE  FOR  ALL 
2ELASTIC  ANO  INELASTIC  COLLISION  PROCESSES  INCLUDED*/ I 

280  FORMAT  I/103X.  *DP.  WILLIAM  B.  LACINA,*AI 1/103X*NORThROP  RESEARCH 
1 ANo  TECHNOLOGY* I 

290  FORMAT  «2X,132»Ih-»/SI7X*UCEV)*7X*F«UI*3X|/2x, 132«IH-I/I 
300  FORMAT  <SH<1H1,,i1,*H(/M) 

310  FORMAT  <82X*E-E  POwER  TRANSFER  DISCREPANCY  « *IPE10.3,OPF8.2*  »*» 

320  FORMAT  <3*X*FRACTIONAL  IONIZATION  « NE/NTOT  ■ *1PE10.3*.  NE  ■ * 

1 El 0.3*  CM- 3* ) 

330  FORMAT  (31X*E/NTOT  ■ MPE10.3*  VOLT  CM2  « *0PF6.3*  VOLT/CM/TORR  ■ 
I*F6.3*  KVOLT/CM/aTM*I 

3*o  format  «•  total  electrical  « *ipeio.3,au*  ioo.oo  *.*isx*total  po 

lwER  INTO  COLLISIONS*  HEATING.  STORAGE  » *1PE10.3,0PF8.2*  *•) 

350  FORMAT  (1H1',*8X.*A10/) 

380  FORMAT  IFT.2) 

370  FORMAT  </lX*OISCHARGE  POWER  = *1PE10.3.A11,0PF7.2*  *,*18X*POwER 

mnto  inelastic  e-molecule  collisions  * *ipeio.3*opf8.2*  s*/ix«sour 

2cE  DEPOSITION  3 *1 PE  10.3. All .0PF7.2*  ».*3*X*ELASTIC  E-MOLECULE  HEA 

3T  INg  * *1PE10.3.0PF8.2*  %*/22x* *12X* l*X*0/OT  (STORE 

id  Electron  kinetic  energvi  ■ e<u>one/dt  * *ipeio.3.opf8.2*  <•> 

380  format  </*8x*CALCOLAT ION  PARAMETERS  USeD:*/*8X*MESH  **I**.  EMAX  «• 
10PF6.2*  EV.  DE  «*F5.3*  EV.*) 

390  FORMAT  <A1.6*X*S(U  * 0 1 /NE  **IPEI0.3> 

*00  FORMAT  I/1X»0ISCHARGE  POWER  = 0.0*A6X*POWER  INTO  INELASTIC  E-MOL 
IECUlE  COLLISIONS  * MPE10.3.A1 l/IX*SOURCE  DEPOSITION  = 0.0*62X*ELA 
2STIC  E-MOLECULE  HEATING  * *1PE10.3,A1 1/63X*D/0T (STORED  ELECTRON  MI 
3NET ic  ENERGY)  * E<U»ONE/DT  ■ * 1PE 10 .3. A 1 1 ) 

*10  FORMAT  I*  TOTAL  ELECTRICAL  * 0.0**3X*TOTaL  POWER  INTO  COLLISIONS. 
I HEATING.  STORAGE  * *1PE10,3.A1 1 ) 

*20  FORMAT  ( 1H» , 12*X.F8.2> 

*30  FORMAT  MH*6*X.*S(U  > 0)/Ne  **1Pe10.3> 

500  FORMAT  UH1,20«/)28X. ‘PROGRAM  COMPLETED  *.I3.*  ITERATIONS  IN  *. 
IF*.0.*  SECONOS  WITHOUT  successful  convergence. */28X,*REQUESTE0  LIM 
2 1 TS  WERE  *. 13.*  ITERATIONS  AND  *,F*.0**  SECONDS.  WITH  A CONVERGED 
3E  C0NDI-*/28X.*TI0n  THAT  THE  CHANGE  BETWEEN  TWO  ITERATIONS  BE  LESS 
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4 THAN  EpS  * *,1PE10.3»*.*) 

600  FORMAT  (/28x.*0ISTR IBUT ION  FUNCTION  BECAME 

1 In  last  ITERATION*) 

NEGATIVE  AT  SOME 

80LTZ 
BOLTZ 
POINTS  BOLTZ 
BOLTZ 
BOLTZ 

1028 

1029 

1030 

1031 

1032 

1 v 33 

BOLTZ 

1034 

CONVERGENCE  FAILEO  FOR  LIMITS  PRESCRIBED. 

error  message  — 

BOLTZ 

1035 

BOLTZ 

1036 

98  WRITE  (6.500)  ITER.  TIME.  ITNAX.  TMAX.  EPS 

BOLTZ 

1037 

IF  (ERROR)  WRITE  (6*600) 

BOLTZ 

1038 

BOLTZ 

1039 

BOLTZ 

1041 

99  RETURN 

BOLTZ 

1042 

ENO 

BOLTZ 

1043 

SUBROUTINE.  SIMEO  (A.  H,  N.  Nl,  SING) 


I 

I 


THIS  SUBROUTINE  WILL  SOLVE  AN  N X N SYSTEM  Or  SIMULTANEOUS  EQUA- 
TIONS or  the  form  a(i.j)xu)  « bid.  a is  dimensioned  a<m,nn>  in 
the  main  program,  and  input  consists  of  putting  the  n * n matrix 
in  the  upper  LEFT  hand  BOX  OF  a.  Nl  DIFFERENT  b vectors  can  be 
SPECIFIED  AS  INPUT  STORED  IN  SUCCESSIVE  COLUMNS  TO  THE  RIGHT  OF 

the  n x n matrix  in  s m.  n.nijnni.  upon  output,  the  solution  vec- 
tors replace  the  input  vectors  b.  if  b is  an  n x n unit  matrix  on 
INPUT.  IT  WILL  contain  A-INVERSE  On  OUTPUT,  sing  ■ true  if  the 
matrix  IS  SINGULAR. 


OlMENSlON  A (M , 1 ) 

LOGICAL  SING 
sing  * .FALSE. 

NPNl  * N ♦ Nl 
DO  9 I * 1*N 

zl  * o. 

DO  2 J ■ I.N 
X 1 « A0S(A<J,I)> 

IF  (Zl-Xl)  1.2.2 
zl  » XI 
I 1 a J 
CONTINUE 
IF  (Zl)  3*11.3 
Z * A ( 1 1 . I ) 

A < 1 1 • I > « A(t.t> 

IP1  - l ♦ I 
DO  a L * IP1.NPN1 
X * A • 1 1 *L) 

A ( 1 1 »L)  * A 1 1 ,l ) 

AlI.L)  * X/Z 
DO  8 J = 1«N 
IF  (J-l)  S.8.5 

IF  (ACJ.H  .EO.O.) 

Z * -A(J.I) 

DO  7 L * IPl.NPNI 
AIJ.L)  * *<J.L)  » Z*A(I,L) 

continue 


GO  TO  8 


9 CONTINUE 

10  return 

11  WRITE  (6 


12) 


11  W"*Tt  (0.1*1 

12  FORMAT  (1HI,20(/) ,*0X. 'COEFFICIENT  MATRIX  IS  SINGULAR*) 
SING  * .TRUE. 

RETURN 

eno 


83 


SIMFO 

SIMFO 

SIMEO 

SIMFO 

SIMFO 

SIMEO 

SIMFO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIME0 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMFO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 

SIMEO 


2 

3 

A 

5 

6 

7 

8 
9 

10 
11 
12 
13 
1 A 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 

40 
A 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


nnnnnnnnnnnnnnnnnnnnnnnnnnnonnnnnnnnnnnnnnnnnnonnnnnnnn 


SUBROUTINE  GEAR  (N.  T.  Y.  SAVE.  Ht  HMIN.  HHAX.  EPS.  MF.  VMAX.  GEAR  2 

1 ERROR.  KFLaG.  JSTaRT.  MAXOER.  M.  pw)  GEAR  3 

GEAR  4 

GEAR  5 

GEAR  6 

THIS  SUBROUTINE  WAS  taken  from  THE  book.  NUMERICAL  initial  VALUE  GEAR  7 

PROBLEMS  in  oroinarv  differential  EQUATIONS,  by  c.  william  gear.  gear  a 

PRENTICE-HALL.  INC.»  ENGLEWOOO  CLIFFS.  N.  j.,  1971.  PP.  158-166.  GEAR  9 

gear  10 

THIS  subroutine  integrates  a set  OF  N ORDINARY  differential  first  gear  n 

oROer  equations  over  one  step  of  length  h at  each  call,  h can  be  gear  12 

SPECIFIED  by  THE  user  AT  EACH  STEP,  but  it  M»Y  be  INCREASED  or  GEAR  13 

decreased  by  the  present  subroutine  within  the  Range  hmin  to  hmax  gear  ia 

IN  ORDER  TO  achieve  as  large  a step  as  possible  while  not  commit-  gear  15 

TING  A single  STEP  ERROR  WHICH  IS  LARGE  THAN  EPS  IN  THE  L-2  NORM,  GEAR  16 

WHERE  each  COMPONENT  of  the  error  is  divided  by  the  components  OF  GEAR  17 

ymax.  the  program  requires  three  subroutines  named)  gear  ia 

GEAR  19 

RATES  IN,  T.  v,  DT ) GEAR  20 

S1MEQ  (PW,  M,  N.  1,  SING)  GEAR  21 

JACOB  (M,  T.  V , PW)  GEAR  22 

gear  23 

the  FIRST.  RATES.  EVALUATES  The  DERIVATIVES  OF  THE  DEPENDENT  VARI-  GEAR  24 

ABLES  STORED  IN  Y ( 1 « 1 ) FOR  I » 1 TO  N.  AND  STORES  THE  DERIVATIVES  GEAR  ?5 

IN  the  VECTOR  OY.  The  SECONO,  simeo.  is  CALLED  only  if  the  METHOD  GEAR  26 

F*-AG  MF  is  set  TO  I OR  2 FOR  STIFF  METHODS.  IT  MUST  INVERT  THE  GEAR  27 

N * N MATRIX  STORED  IN  THE  ARRAY  Pw(M,M).  IF  THE  INVERSION  IS  GEAR  ?8 

SUCCESSFUL,  SING  (SINGULARITY)  IS  RETURNED  FALSE.  JACOB  IS  USED  GEAR  29 

ONLy  IF  MF  IS  1.  ANO  COMPUTES  THE  PARTIAL  DERIVATIVES  OF  THE  DIF-  GEAR  30 

FERENTlAL  equations  AS  DESCRIBED  under  the  MF  PARAMETER.  gear  31 

GEAR  32 

THE  TEMPORARY  STORAGE  space  is  provideo  by  the  caller  in  the  array  GEAR  33 

pw  ano  the  array  save,  the  array  pw  is  used  only  to  hold  the  ma-  gear  34 

TRlx  of  the  same  naHe.  but  save  is  used  to  hold  several  arrays.  gear  35 

THE  REGIONS  USEO  ArE«  GEAR  36 

GEAR  37 

SAVE(J, 1)  — 1SJS8  ANO  1<1<N  IS  USEO  TO  SAVE  THE  VALUES  OF  GEAR  38 

Y IN  CASE  a STEP  HAS  TO  BE  REPEATEO.  GEAR  39 

GEAR  40 

Save (9. i)  — is  used  mainly  to  holo  the  correction  terms  in  gear  ai 

THE  CORRECTOR  LOOP.  GEAR  42 

GEAR  43 

Save ( io. I > — is  useo  to  save  the  values  of  the  sums  of  all  gear  44 

OF  The  CORRECTION  TERMS  in  The  PREVIOUS  STEP  gear  45 

AFTER  They  have  BEEN  ACCUMULATED  in  the  ARRAY  gear  46 

error  in  the  current  step,  this  enables  THE  gear  47 

BACKWAROS  DIFFERENCE  OF  ERROR  TO  BE  FORMED.  IT  GEAR  48 

IS  USEO  TO  ESTIMATE  THE  STEP  SIZE  FOR  ONE  ORDER  GEAR  49 

higher  than  current.  gear  so 

gear  51 

SAVE(N1«I,1)  — is  USED  TO  STORE  THE  DERIVATIVES  WHEN  THEY  ARE  GEAR  52 

COMPUTED  By  RATES.  IT  IS  ALSO  ACCESSED  AS  GEAR  53 

SAVE (N2, I > AS  A COMPLETE  ARRAT.  GEAR  54 

GEAR  55 

save  ins* i « i > — holds  the  derivatives  during  jacobian  evalua-  gear  56 

TIONS.  IT  IS  REFERENCED  AS  SAVE(N6,1>  AS  A COM-  GEAR  57 

PLETE  ARRAY.  GEAR  58 
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input  and  output  parameters  have  the  following  meaning  — 

N the  number  of  first  oroer  differential  equations,  n MAY 

Bt  DECREASED  on  later  CALLS  if  the  number  of  active  equa- 
tions reduces,  but  it  must  not  be  increased  without  call- 
ing jstart  « 0. 

m dimension  declarator  for  the  Jacobian  pw  and  the  array  y 

containing  the  dependent  variables  and  their  derivatives. 

T THE  INDEPENDENT  VARIABLE. 

Y AN  M X 8 ARRAY  CONTAINING  THE  DEPENDENT  VARIABLES  ANO 

THEIR  SCALED  DERIVATIVES.  Yll.JMl  CONTAINS  THE  JTH 
DERIVATIVE  OF  V C I > SCALED  BY  H»*J/FACTORlAL  J.  WHERE  h is 
THE  CURRENT  STEP  SIZE.  ONLY  Y(I.II  NEED  BE  PROVIDED  BY 
THE  CALLING  PROGRAM  ON  THE  FIRST  ENTRY.  IF  IT  IS  DESIRED 

to  interpolate  to  non-mesh  points,  these  values  can  be 

USED.  IF  THE  CURRENT  STEP  SIZE  IS  H ANO  THE  VALUE  AT  T»E 

is  needed,  form  s « e/h.  ano  then  compute 


Y(I)IT*EI  * 


SUMJ  YU.J.1>»S»*J 
J*0 


A BLOCK  OF  AT  LEAST  I2*N  SCRATCH  LOCATIONS  USED  BY  THE 
SUBROUTINES. 

THE  STEP  SIZE  TO  BE  ATTEMPTED  ON  THE  NEXT  STEP.  H MAY  BE 
AOJUSTED  UP  OR  DOWN  BY  THE  PROGRAM  IN  OROER  TO  ACHIEVE  AN 
ECONOMICAL  integration,  however,  IF  THE  H PROVIDED  BY  THE 
USER  OOES  NOT  CAUSE  A LARGER  ERROR  THAN  REOUESTEO.  IT  WILL 
BE  USED.  TO  SAVE  COMPUTER  TIME.  THE  USER  IS  ADVISED  TO 
USE  A FAIRLY  SMALL  STEP  FOR  THE  FIRST  CALL.  IT  WILL  BE 
AUTOMATICALLY  INCREASED  later. 

THE  MINIMUM  step  SIZE  THAT  WILL  BE  USED  FOR  THE  INTEGRA- 
TION. note  that  on  starting  this  must  be  much  smaller 
than  the  average  h expecteo  since  a first  order  methoo  is 

USED  INITIALLY. 

THE  MAXIMUM  SIZE  TO  WHICH  THE  STEP  SIZE  WILL  BE  INCREASED. 

THE  ERROR  TEST  CONSTANT.  SINGLE  STEP  ERROR  ESTIMATES  Dl- 
VIDEO  BY  YMAXII)  MUST  BE  LESS  THAN  THIS  IN  THE  EUCLIDEAN 

norm,  the  step  ano/or  oroer  is  adjusted  to  achieve  this. 

the  method  INDICATOR.  THE  FOLLOWING  Are  AVAILABLE  I 

0 AN  ADAMS  PREDICTOR-CORRECTOR  IS  USED. 

1 a multistep  method  suitable  for  stiff  systems  is 
used.  it  will  also  WORK  for  NON-STIFF  systems, 
however,  the  user  must  PROVIDE  a SUBROUTINE  JACOB 
WHICH  EVALUATES  THE  PARTIAL  DERIVATIVES  OF  THE 
DIFFERENTIAL  EQUATIONS  with  RESPECT  TO  THE  Y-S. 
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112 

GEAR 
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116 
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J 

1 

c 

THIS  IS  DONE  8Y  call  JACOB  (M.  T,  Y*  Pw<l.N*2>). 

GEAR 

116 

c 

THE  JACOBIAN  PHKl.J),  WHICH  REPRESENTS  The  PAR- 

GEAR 

117 

c 

tial  or  the  ith  equation  with  respect  to  the  jtm 

GEAR 

lie 

c 

oepenoent  variable,  is  stored  in  the  upper  left 

GEAR 

119 

c 

n x n corner  or  that  part  of  t^e  array  pw  begin- 

GEAR 

120 

c 

NING  AT  COLUMN  <N*2) . 

GEAR 

121 

c 

GEAR 

122 

c 

2 THE  SAME  AS  CASE  I,  EXCEPT  THAT  THIS  SUBROUTINE 

GEAR 

123 

c 

COMPUTES  THE  PARTIAL  DERIVATIVES  BY  NUMERICAL  DIF- 

GEAR 

124 

c 

FERENC ING  OF  THE  DERIVATIVES.  HENCE*  JACOB  IS  NOT 

GEAR 

125 

c 

called. 

GEAR 

126 

c 

GEAR 

127 

c 

yMax 

AN  ARRAY  OF  N LOCATIONS  WHICH  CONTAINS  THE  MAXIMUM  OF  EACH 

GEAR 

128 

c 

y seen  so  far,  automatically  upoated  after  each  completed 

GEAR 

129 

c 

step  (UNLESS  The  USER  OVERRIDES  IT  BY  CHANGING  YMAX  BEFORE 

GEAR 

130 

c 

a subsequent  calli.  all  of  the  components  of  ymax  should 

GEAR 

131 

c 

BE  INITIALIZED  TO  1,0  BEFORE  ThE  FIRST  ENTRY.  (CF.  ALSO 

GEAR 

132 

c 

THE  DESCRIPTION  FOR  EPS,  GIVEN  ABOVE.) 

GEAR 

133 

c 

GEAR 

134 

c 

E*«OR 

AN  ARRAY  OF  N ELEMENTS  WHICH  CONTAIN  THE  ESTIMATED  ONE 

GEAR 

135 

c 

STEP  error  in  EACH  COMPONENT. 

GEAR 

136 

c 

GEAR 

137 

! 

c 

KFLAG 

A COMPLETION  CODE  WITH  THE  FOLLOWING  MEANINGS— 

GEAR 

138 

c 

GEAR 

139 

c 

♦1  THE  STEP  WAS  SUCCESSFUL!  T IS  ADVANCED  TO  { T *H) 

GEAR 

140 

c 

ANO  RESULTS  OF  INTEGRATION  FROM  T TO  (T‘H>  ARE 

GEAR 

14) 

c 

returneo  to  the  calling  program. 

GEAR 

142 

c 

-1  THE  STEP  WAS  TAKEN  WITh  H * HMIN.  BUT  THE 

GEAR 

143 

c 

REQUESTED  ERROR  WAS  NOT  ACHIEVED.  T IS  ADVANCED 

GEAR 

144 

c 

TO  CT»OT).  CALLING  PROGRAM  MUST  APPROVE  FAILURE 

GEAR 

145 

c 

OF  ACCURACY. 

GEAR 

146 

c 

-2  THE  MAXIMUM  OROER  SPECIFIED  WAS  FOUNO  TO  BE  TOO 

GEAR 

147 

c 

LARGE. 

GEAR 

148 

c 

-3  CORRECTOR  CONVERGENCE  COULD  NOT  BE  ACHIEVED  FOR 

GEAR 

149 

c 

H > HMIN.  T is  not  AOvANCED.  calling  program 

GEAR 

150 

c 

must  DECREASE  H ANO  HMIN  ANO  TRY  AGAIN. 

GEAR 

151 

c 

-4  THE  REQUESTED  ERROR  IS  SMALLER  THAN  CAN  BE  HANOLED 

GEAR 

152 

c 

FOR  THIS  PROBLEM.  T IS  NOT  ADVANCED.  ETA  MUST 

GEAR 

153 

c 

BE  INCREASED. 

GEAR 

154 

c 

GEAR 

155 

c 

jSTart 

input  indicator  with  the  following  meanings  — 

GEAR 

156 

c 

GEAR 

157 

c 

-l  REPEAT  THE  LAST  STEP  WITH  A NEW  H 

GEAR 

158 

c 

0 PERFORM  THE  FIRST  STEP.  THE  FIRST  STEP  MUST  BE 

GEAR 

159 

c 

DONE  WITH  THIS  VALUE  OF  JSTART  SO  THAT  THE  SU8ROU- 

GEAR 

160 

c 

TINE  CAN  INITIALIZE  ITSELF . 

GEAR 

1 6 1 

c 

♦1  take  a new  step  continuing  from  THE  last. 

GEAR 

162 

c 

GEAR 

163 

l 

c 

jstart  is  set  to  nq.  the  current  order  of  the  method  at 

GEAR 

164 

c 

exit.  NQ  IS  ALSO  THE  ORDER  OF  THE  MAXIMUM  DERIVATIVE 

GEAR 

165 

c 

available. 

GEAR 

1 66 

c 

GEAR 

167 

c 

MAXdER 

THE  MAXIMUM  DERIVATIVE  THAT  SHoULO  BE  USED  IN  THE  METHOD. 

gear 

168 

c 

SINCE  THE  ORDER  IS  EQUAL  To  THE  HIGHEST  DERIVATIVE  USED. 

GEAR 

169 

c 

THIS  restricts  the  order,  it  MUST  BE  LESS  THAN  8 FOR 

GEAR 

1 70 

c 

ADAMS  AND  7 FOR  THE  STIFF  METHOOS. 

GEAR 

171 

. » 

c 

GEAR 

172 

’ 

: 

.. 

86 

1 

— - 
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c 

c 

C i 

pw  a block  of  at  least  m»<2m«ii  schatch  locations. 

GEAR 

GEAR 

gear 

173 

174 

175 

c 

GEAR 

176 

DIMENSION  Y ( M • 8 > , YMAX(l),  SAVEUO.lIt  ERROR  (lit  PW(M,1),  A(0>, 

GEAR 

177 

1 PERTST  <7*2, 3i 

GEAR 

178 

c 

GEAR 

179 

logical  sing 

GEAR 

180 

c 

GEAR 

181 

c 

THE  COEFFICIENTS  IN  PERTST  ARE  USED  IN  SELECTING  THE  STEP  AND 

GEAR 

182 

c 

OROER.  THEREFORE*  ONLY  ABOUT  ONE  PERCENT  ACCURACY  IS  NEEDED. 

GEAR 

183 

c 

GEAR 

184 

0*Ta  PERTST  / 2.0*  <*.5,  7.333,  10.42,  13.7,  17.15*  1.0. 

GEAR 

IBS 

1 2.0.  12.0,  24.0,  37.89.  53.33,  70.08,  87.97, 

GEAR 

186 

2 3.0,  6.0,  9.167,  12*5,  15,98,  1.0*  1.0, 

GEAR 

187 

3 12.0,  26.0,  37.89,  53.33,  70.08,  87.97,  1.0, 

GEAR 

188 

4 1.0*  1.0,  0.5*  0.1667,  0.04133,  0.008267,  1.0, 

GEAR 

189 

5 1.0*  1.0,  2.0*  1.0,  0.3157,  0.07407,  0.0139  / 

GEAR 

190 

c 

GEAR 

191 

DATA  A(2)  / -1.0  / 

GEAR 

192 

I«Et  * 1 

GEAR 

193 

kFlag  = 1 

GEAR 

194 

METHOD  « MF»1 

GEAR 

195 

IF  (JSTART.LE.O)  GO  to  140 

GEAR 

196 

c 

GEAR 

197 

c 

begin  bv  saving  information  for  possible  restarts  and  changing  h 

GEAR 

198 

c 

B7  the  factor  r if  the  caller  HAS  changed  h.  all  variables  depen- 

GEAR 

199 

c 

dent  on  h must  also  be  changed,  e is  a comparison  for  errors  of 

GEAR 

200 

c 

the  CURRENT  OROER*  MO.  eup  is  to  test  for  increasing  the  order. 

GEAR 

201 

c 

edmn  fo«  decreasing  the  order,  hnew  is  the  step  size  that  was 

GEAR 

202 

c 

used  on  the  last  call. 

GEAR 

203 

c 

GEAR 

204 

lno  DO  110  1 * 1,N 

GEAR 

205 

00  110  J * l.K 

GEAR 

206 

110  SAVeU.I1  = Y(I,J> 

GEAR 

207 

hOLo  * HNEW 

GEAR 

208 

IF  (H.EO.HOLD)  GO  TO  130 

GEAR 

209 

120  RACUM  = H/HOLD 

GEAR 

210 

IRET1  = 1 

GEAR 

211 

C.0  TO  750 

GEAR 

2 12 

130  NUOlD  » NU 

GEAR 

213 

TOLO  * T 

GEAR 

214 

RACUM  r 1.0 

GEAR 

215 

IF  (JSTART.GT.01  GO  TO  250 

GEAR 

216 

GO  TO  170 

GEAR 

217 

1 40  IF  (JSTART.EO.-ll  GO  TO  160 

GEAR 

218 

c 

GEAR 

219 

c 

ON  THE  FIRST  CALL.  The  OROER  IS  SET  TO  1 AND  THE  INITIAL  DERIVA- 

GEAR 

220 

c 

tives  are  calculated. 

GEAR 

221 

c 

GEAR 

222 

no  > 1 

GEAR 

223 

Nl  * N»10 

GEAR 

224 

N2  * N1  » 1 

gear 

225 

N5  , Nl  • N 

GEAR 

226 

N6  s N5  ♦ l 

GEAR 

22  7 

c 

GEAR 

228 

c 

GEAR 

229 

I 

I i 


I 
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c 

— 

GEAR 

230 

CALL  OnOT  IN,  T,  Y,  SAVE (N2» 1 ) ) 

GEAR 

231 

c 

-- 

GEAR 

2 32 

c 

GEAR 

233 

DO  150  I * 1,N 

GEAR 

23* 

ISO 

Y < 1 ,2)  = SAvE(Nl*I.l)»H 

GEAR 

235 

HNEW  a H 

GEAR 

236 

K * 2 

GEAR 

237 

GO  TO  100 

GEAR 

238 

c 

repeat  LAST  STEP  by  restoring  saved 

INFORMATION  — 

GEAR 

239 

160 

IF  (NQ.EO.NOOLO)  JSTART  a 1 

GEAR 

240 

T * TOLD 

GEAR 

2*1 

no  * NoOLD 

GEAR 

2*2 

K = NO, 1 

GEAR 

2*3 

GO  TO  120 

GEAR 

2** 

c 

GEAR 

2*5 

c 

SET  THE  COEFFICIENTS  THAT  OETERHINE 

THE 

order  and  the 

method  type. 

GEAR 

2*6 

c 

CHECK  FOR  EXCESSIVE  ORDER.  The 

LAST 

TWO 

statements 

OF 

THIS  SEC- 

GEAR 

2*7 

c 

tIon  set  iveval  » o if  pw  is  to 

BE  reevaluated  because 

OF  THE  OR- 

GEAR 

2*8 

c 

DER  CHANGE  * AND  THEN  REPEAT  The 

INTEGRATION  step  if 

IT 

has  not  yet 

GEAR 

2*9 

c 

been  done  <IRET  a U OR  SKIP  TO 

A final 

SCALING  BEFORE 

EXIT  IF  IT 

GEAR 

250 

c 

has  been  COMPLETED  URET  a 2) . 

GEAR 

251 

c 

GEAR 

252 

170 

IF  (MF.EQ.O)  GO  TO  1B0 

GEAR 

253 

IF  (NQ.GT.6)  GO  to  190 

GEAR 

25* 

GO  TO  (221 ,222, 223, 22*. 225, 226) 

, NO 

GEAR 

255 

100 

IF  (NQ.GT.7)  GO  TO  190 

GEAR 

256 

GO  TO  (211 >212,213, 21*, 215,216, 

217), 

NO 

GEAR 

257 

190 

KFlAG  = “2 

GEAR 

258 

RETURN 

GEAR 

259 

c 

GEAR 

260 

211 

till  a -1.0 

gear 

261 

GO  TO  230 

GEAR 

262 

212 

Ad)  ■ A(3)  a -0.5 

GEAR 

263 

GO  TO  230 

GEAR 

26* 

213 

A<1)  a -0. *1666666666667 

GEAR 

265 

c 

Ad)  a -5./12. 

GEAR 

266 

A < 3)  a -0.75 

GEAR 

267 

A<*>  a -0.16666666666667 

GEAR 

268 

c 

A(*)  a -1./6. 

GEAR 

269 

GO  TO  230 

GEAR 

270 

21* 

Ad)  = -.J7S 

GEAR 

271 

A < 3)  a -0.91666666666667 

GEAR 

272 

c 

A 1 3 ) a -11. /12. 

GEAR 

273 

A (* ) * -0.33333333333333 

GEAR 

27* 

c 

A (* ) a -1./3. 

GEAR 

275 

A IS)  a -0 •* 166666666666 7E~0 1 

GEAR 

276 

c 

A<S)  a -1./2A. 

GEAR 

277 

GO  TO  230 

GEAR 

278 

215 

All)  a -0.34861111111111 

GEAR 

279 

c 

Ad)  a -251. /720. 

GEAR 

280 

A<3)  a -1.0416666666667 

GEAR 

281 

c 

A * 3)  a -25. /24. 

GEAR 

28  2 

A (* ) * -0. *8611111111111 

GEAR 

283 

c 

A 1 * ) * -3S./72. 

GEAR 

284 

A ( S ) a -0.104)6666666667 

GEAR 

285 

c 

A(5)  a -5./4S. 

GEAR 

286 

88 


A (6) 

* -0.83333333333333E-02 

GEAR 

287 

c 

A 1 6 ) 

=■  -1./120. 

GEAR 

288 

GO  TO  230 

GEAR 

289 

216 

AH) 

« -0.32986111111111 

GEAR 

290 

c 

All) 

a -9S./288. 

GEAR 

291 

A 1 3 ) 

= -1.1*16666666667 

GEAR 

292 

c 

A 1 3 ) 

= -137. /120. 

GEAR 

293 

A<*) 

x -0.625 

GEAR 

294 

c 

A<*) 

* -S./8. 

GEAR 

295 

A <S  > 

= -0.17708333333333 

GEAR 

296 

c 

A <5 ) 

* -17./96. 

GEAR 

297 

A 1 6 ) 

= -0.025 

GEAR 

298 

c 

A 16 ) 

= -l./*0. 

GEAR 

299 

A 1 7 ) 

s -0.1  3888888888889E-02 

GEAR 

300 

c 

A 1 7 ) 

* -1./720. 

gear 

301 

GO  TO  230 

GEAR 

302 

217 

Ad) 

x -0.31559193121693 

GEAR 

303 

c 

Ad) 

* -19087. /60*80. 

GEAR 

30* 

AI3) 

* -1.225 

GEAR 

305 

c 

A <3  I 

= -*9./*o. 

GEAR 

306 

A 1* ) 

* -0.75185185185185 

GEAR 

307 

c 

A 1* ) 

x -203. /270. 

GEAR 

308 

A <5 ) 

= -0.25520833333333 

GEAR 

309 

c 

A<5> 

* -*9./192. 

GEAR 

310 

A (6 ) 

x -0.*861 llllllllllE-Ol 

GEAR 

31  1 

c 

A 16) 

x -7./1**, 

GEAR 

312 

A 1 7 ) 

* -0 .*861 llllllllllE-02 

GEAR 

313 

c 

A 1 7 ) 

x - 7./1440. 

GEAR 

31* 

A 1 8 ) 

x -0.l98*12698*1270E-03 

GEAR 

315 

c 

A < 0 ) 

= -l./50*0. 

GEAR 

316 

GO  TO  230 

GEAR 

317 

221 

Ad) 

3 -1  . 

GEAR 

318 

GO  TO  230 

GEAR 

319 

22? 

Ad) 

x -0.66666666666667 

GEAR 

3?0 

c 

Ad) 

x -2./3. 

GEAR 

321 

A 1 3 ) 

= -0.33333333333333 

GEAR 

3 22 

c 

A 13) 

x -1./3. 

GEAR 

323 

GO  TO  230 

GEAR 

32* 

223 

Ad) 

* -0.5*5*5*5*5*5*5* 

GEAR 

325 

A I 3) 

x Ad) 

GEAR 

326 

c 

Ad) 

x A ( 3)  x -6./U. 

GEAR 

327 

Al*> 

3 -0 . 909090909090 9 1E-0 1 

GEAR 

328 

c 

A 1 * ) 

» -l./ll. 

GEAR 

329 

GO  TO  230 

GEAR 

330 

22* 

Ad) 

X -0.*8 

GEAR 

331 

A (3) 

* -0.7 

GEAR 

332 

At*) 

x -0.2 

GEAR 

333 

AI5) 

* -0.02 

GEAR 

33* 

GO  TO  230 

GEAR 

315 

225 

Ad) 

* -0.*3795620<, 37956 

GEAR 

316 

c 

Ad) 

* -120. /27*. 

gear 

317 

A 1 3 , 

= -0.82116788321168 

GEAR 

338 

c 

A 1 3 ) 

3 -225. /27*. 

GEAR 

339 

At*) 

x -0.31021897810219 

GEAR 

340 

c 

At*) 

x -B5./274. 

GEAR 

341 

A 1 5 ) 

3 -0.54 7445255* 7445E-01 

GEAR 

342 

c 

A «S) 

* -15. /27*. 

GEAR 

34  3 

89 


J 


A<6>  = -0.36496350364964E-02 

GEAR 

344 

c 

A 1 6 ) = -1./274. 

GEAR 

345 

GO  TO  230 

GEAR 

346 

226 

All)  * -0. <*0816326530612 

GEAR 

347 

c 

A<1)  * -180. /44l. 

GEAR 

348 

A ( 3 ) = -0.92063492063492 

GEAR 

349 

c 

A(3)  a -58. /63. 

GEAR 

350 

A<4)  * -0.41666666666667 

GEAR 

351 

c 

A(4)  a -15. /36. 

GEAR 

352 

A ( 5 ) = -0.99206349206349E-01 

GEAR 

353 

c 

A<5>  = -2S./252. 

GEAR 

354 

A ( 6 ) a -0 • 1 190476 1 904 762E-0 1 

GEAR 

355 

c 

A<6)  * -3./2S2. 

GEAR 

356 

A ( 7 ) = -0.56689342403628E-03 

GEAR 

357 

c 

A ( 7 ) a -1./1764. 

GEAR 

358 

c 

GEAR 

359 

230 

K = NO* 1 

GEAR 

3ft0 

1 00 1)8  a K 

GEAR 

361 

HTTP  a (4-MF1/2 

GEAR 

362 

c 

MtYp  a 1 (STIFF*  Mf  * 1 OR  2) 

, HTYP 

a 2 (ADAMS-MOULTON) . 

GEAR 

363 

EN02  a 0.5/ (NO* 1 ) 

GEAR 

364 

ENOj  a 0.5/ (NO. 2) 

GEAR 

365 

ENQl  a 0.5/NO 

GEAR 

366 

PEPsh  = EPS 

GEAR 

367 

EUP  a (PERTST (NQ.MTYP,2)«PePSH)**2 

GEAR 

368 

E = (PfRTST(NQ,MTYP*1)»PEPSH) 

**2 

GEAR 

369 

EOXn  = (PEHTST(NQ.HTYP,3)»PEPSH)**2 

GEAR 

370 

If  (EOwN.EQ.O)  GO  TO  780 

GEAR 

371 

0NO  a ePS*EN03/N 

GEAR 

372 

JWEVAL  = HF 

GEAR 

373 

go  TO  (250*680)*  IRET 

GEAR 

374 

c 

GEAR 

375 

c 

T»lS  SECTION  COMPOTES  THE  PREDICTED 

values 

by  effectively  multi- 

GEAR 

376 

c 

plying  the  saved  inpormat ion 

BY  THE 

pascal 

triangle  Matrix. 

GEAR 

377 

c 

GEAR 

378 

250 

T * T»h 

GEAR 

379 

do  260  J ■ 2.K 

GEAR 

380 

DO  260  J1  * J.K 

GEAR 

381 

J2  = K- J 1 • J- 1 

GEAR 

382 

DO  260  I = 1*N 

GEAR 

383 

2ft  0 

Y(I,J2>  * T(I.J2)  » Y(I,J2*1> 

GEAR 

384 

c 

GEAR 

385 

c 

UP  TO  3 CORRECTOR  ITERATIONS 

are  taken,  convergence  is  tested  by 

GEAR 

386 

c 

requiring  changes  to  be  less 

than  bnd  which 

IS  DEPENDENT  ON  THE 

gear 

387 

c 

eppor  test  constant,  the  soh 

or  the 

CORRECTIONS  IS  ACCUMULATED  in 

GEAR 

388 

c 

the  array  error ( i > . it  is  eoual  To 

the  kth 

DERIVATIVE  OF  Y MULTI- 

GEAR 

389 

c 

PLIED  BY  H»«K/(FACT0RIAL(K-1)*A(K) ) 

* ano  is  therefore  propor- 

GEAR 

390 

c 

tional  to  the  actual  errors  to  the  lowest  power  of  h present  <h»«k 

GEAR 

391 

c 

GEAR 

392 

DO  270  I = 1*N 

GEAR 

393 

270 

ewror  < 1 1 * o. 

gear 

394 

c 

gear 

395 

DO  430  L * 1,3 

GEAR 

396 

c 

GEAR 

397 

c 

.... 

GEAR 

398 

call  dnot  (n,  t,  y,  save(N2*D) 

GEAR 

399 

c 

— 

GEAP 

400 

90 


GO  TO  (280.300.320)*  METHOD 

THIS  SECTION  is  ENCOUNTERED  ONLY  For  Mf  * 0 — 
DO  290  I 3 1 »N 

savE(9,i>  * y ( i .2)  - save (ni ♦ i * i i *h 
GO  TO  AlO 


EVALUATE  the  JACOBIAN  AND  PLACE  IT  IN  AN  N x N BOX  IN  THE  UPPER 

left  hand  corner  of  that  part  of  p w beginning  with  column  in*2>. 

EVALUATE  the  JACOBIAN  BY  A CALL  TO  AN  EXTERNAL  SUBROUTINE  (THIS 

section  is  encountered  only  if  mf  x d — 

IF  ( IWEVAL.LT. 1)  60  TO  380 


CALL  JACOB  (M,  T.  Y.  PW(l.N»2l) 


R = A ( 1 ) *H 
DO  310  I = l.N 
DO  310  J = l.N 
jPN 1 = J»N»I 

PW(I.JPNI)  x PW (I  * jPNl ) *R 
GO  TO  360 


EVALUATE  THE  JACOBIAN  INTO  PW  BY  NUMERICAL  DIFFERENCING.  R IS  THE 

change  made  to  the  element  of  r.  it  is  eps  relative  to  y with  a 
minimum  OF  EPS*»2.  this  SECTION  IS  ENCOUNTERED  only  IF  mf  X 2 — 

IF  (IWEVAL.LT.l)  GO  TO  380 
DO  330  I = l.N 
SAVE (9,1)  * Y(I,1) 

00  350  J = l.N 

R * EPS'AMAXl (EPS.ABS(SAVE(9,J) ) ) 

YlJ.l)  = Y ( J, 1 ) . R 
D * A(H*H/R 


CALL  ONDT  (N,  T.  Y,  SAVE (N6* 1 ) ) 


jPN 1 x J.N» 1 
DO  3A0  I = l.N 

PW(I.JPNI)  x (SAVE (N5» 1,1)  - SAVE(Nl»I.l) )»D 
Y < J. I ) * SAVE lli J) 


IF  THERE  HAS  BEEN  A CHANGE  OF  OROER  OR  THERE  HAS  BEEN  TROUBLE  WITH 
CONVERGENCE,  PW  IS  REEVALUATED  PRIOR  TO  STARTING  THE  CORRECTOR 
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.... 

Ifc  ■■  1 

Ste 

ITERATION  in  the  case  of  stiff  methods,  iweval  is  then  set  TO  -1 
as  an  inoicator  that  it  has  been  done. 

360  IWEVAL  * “l 

ado  the  identity  matrix  to  the  jacobian.  this  section  is  encoun- 
tered ONLY  FOR  MF  = 1 OR  2 — 

DO  370  I * l.N 
iPNl  • I «N» 1 

370  P*»I«IPN1>  * 1.0  ♦ PWII.IPN1) 

fetch  d ♦ phi i»  shift  it  to  the  left#  calculate  Rhs  vfctor  — 

300  DO  390  I * ltN 

pW(ItNtl)  * SAVE (NS* 1 1 1 1 * Y C 1 .21  - SAVE (N1 *1 . 1 1 *H 
DO  390  J * ltN 
jPN 1 « J.N» 1 

390  P*d,J)  > PW ( I . JPN 1 1 


CALL  SIMEU  (PW,  M.  Nt  1,  SING) 


ip  (singi  go  to  **o 

00  400  I * 1 ,N 
A00  SAVe(9,II  » PW'I.N.l) 


CORRECT  and  SEE  IP  all  of  the  CHANGES  are  less  than  bnd  relative 
to  rMAx.  IF  SO.  The  CORRECTOR  is  said  to  have  converged. 

*10  NT  a N 

DO  *20  I * ltN 

Tdill  ■ Y ( 1 , 1 ) . A(l)  #SAVE  (9,1) 

Ydt 2)  ■ Y ( I ,2)  - SAVE  (9,1) 

ERRoR(I>  ■ ERROR (I  I ♦ SAVE (9, 1) 

IF  |A9S«SAVEI9,I)».LE.IBN0»YMAX(I)))  NT  * NT-1 
*?0  CONTINUE 

IF  (NT.LE.O)  GO  TO  *90 
*30  CONTINUE 


THE  CORRECTOR  ITERATION  FAILED  TO  CONVERGE  IN  THREE  TRIES.  VARI- 
OUS POSSIBILITIES  ARE  CHECKED  FOR.  IF  M IS  ALREADY  HMIN  AND  THIS 
IS  EITHER  ADAMS  METHOD  OR  THE  STIFF  METHOD  IN  WHICH  ThE  MATRIX  PW 
HAS  ALREADY  BEEN  REEVALUATED,  A NO-CONVERGENCE  EXIT  IS  TAKEN. 
OTHERWISE,  THE  MATRIX  PW  IS  REEVALUATED  AND/OR  THE  STEP  IS  RE- 
DUCED TO  TRY  and  get  CONVERGENCE. 


**0  T » TOLD 

IP  I(H.LE.«HMIN*I. 00001)1. and. (IIWEVAL-MTYP).LT. -11)  GO  TO  *60 
IP  ( (Mr.EU.O) .OR. dWEVAL.NE.O) ) RACUM  « RACUM*0.2S 
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I WEvAL  * *F 

gear 

515 

1HET1  = 2 

gear 

516 

GO  TO  750 

GEAP 

517 

460 

Kl'LAG  3 -3 

GEAR 

518 

470 

DO  480  I 3 l.N 

GEAR 

519 

00  480  J ■ l.K 

GEAR 

520 

400 

Y<I,J>  « SAVE  ( J.  I > 

GEAR 

521 

H * HOLO 

GEAR 

522 

NU  x NQOLO 

GEAR 

523 

jSl»RT  3 NO 

gear 

524 

RETURN 

GEAR 

525 

c 

GEAR 

526 

c 

GEAR 

527 

c 

GEAR 

528 

c 

THE  CORRECTOR  CONVERGED  ANO  CONTROL  IS  PASSED  TO  STATEMENT  520 

GEAR 

529 

c 

IF  THE  ERROR  TEST  IS  O.K.  (OR  TO  540  OTHERWISE.)  IF  THE  STEP  IS 

GEAR 

530 

c 

O.K..  IT  IS  ACCEPTED.  IF  IOOUB  HAS  BEEN  REDUCED  TO  ONE.  A TEST 

GEAR 

531 

c 

is  HADE  to  see  if  the  step  can  BE  INCREASED  AT  The  current  oroer 

GEAR 

532 

c 

OR  BY  GOING  TO  ONE  HIGHER  OR  ONE  COWER.  SUCH  A CHANGE  IS  ONCY 

GEAR 

533 

c 

MADE  if  the  STEP  can  BE  INCREASED  BY  at  LEAST  1.1.  IF  NO  CHANGE 

GEAR 

534 

c 

IS  POSSIBLE.  IOOUB  IS  SET  TO  10  TO  PREVENT  FURTHER  TESTING  FOR  10 

GEAR 

535 

c 

STEPS.  IF  A CHANGE  IS  POSSIBLE.  IT  IS  MAOE.  AND  IOOUB  IS  SET  TO 

GEAR 

536 

c 

nQm  TO  prevent  further  testing  for  that  number  of  steps,  if  the 

GEAR 

537 

c 

ERROR  WAS  Too  large,  the  optimum  step  sue  for  this  OR  LOWER 

GEAR 

538 

c 

ORDER  is  COMPUTED.  ANO  the  step  retrieo.  if  it  shoulo  fail  twice 

GEAR 

539 

c 

more,  it  IS  an  indication  THAT  THE  DERIVATIVES  that  have  accumu- 

GEAR 

540 

c 

LATED  in  the  y array  have  errors  of  the  WRONG  order  so  the  first 

GEAR 

54 1 

c 

derivatives  are  recomputed  and  THE  OROER  is  SET  TO  1. 

GEAR 

542 

c 

GEAR 

543 

c 

GEAR 

544 

c 

GEAR 

545 

400 

D 3 0. 

GEAR 

546 

DO  500  I 3 l.N 

GEAR 

547 

500 

0 3 0 » (ERROR ( I ) /YMAX ( I ) ) **2 

GEAR 

548 

IWEVAL  = o 

GEAR 

549 

IF  (D.Gl.t)  GO  TO  540 

GEAR 

550 

IF  (K.lT.J)  GO  TO  520 

GEAR 

551 

c 

COMPLETE  THE  CORRECTION  OF  the  HIGHER  oroer  DERIVATIVES  after  a 

GEAR 

552 

c 

SUCCESSFUL  STEP. 

GEAR 

553 

DO  510  J 3 3.K 

GEAR 

554 

DO  510  I 3 l.N 

GEAR 

555 

510 

yll.ji  3 y ( i , j>  ♦ a(J)*ERROR(I) 

DEAR 

556 

520 

kflag  3 I 

GEAR 

557 

HNEw  3 H 

GEAR 

558 

IF  1 IOOUB. LE.n  GO  TO  550 

GEAR 

559 

]UOU0  3 IOOUB- 1 

GEAR 

560 

IF  (IOOUB. GT.l)  GO  TO  700 

GEAR 

561 

DO  530  I 3 l.N 

GEAR 

562 

530 

S*Vf(lo.I>  3 ERROR! I) 

GEAR 

563 

f,0  TO  700 

GEAR 

564 

c 

gear 

565 

c 

REOUCE  the  failure  flag  count  to  CHECK  For  multiple  failures. 

GEAR 

566 

c 

restore  t To  its  original  valuf  and  try  again  unless  there  HAVE 

GEAR 

567 

c 

seen  Three  FAILURES.  IN  That  CASE,  the  derivatives  ARE  ASSUMED 

GEAR 

568 

c 

TO  HAVE  ACCUMULATED  errors  so  A RESTART  FROM  The  current  value  of 

GEAR 

569 

c 

Y Is  TPlEU. 

GEAR 

570 

c 

GEAR 

571 
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5*0  KFLAG  a KFLAG-2  GEAR 

IF  (H.LE.IHMINM.OOOOI))  GO  TO  7*0  GEAR 

T * TOLD  GEAR 

IF  (KFlAG.IE.-SI  GO  TO  720  GEAR 

GEAR 

PRI,  PR2.  ANO  PR3  MILL  CONTAIN  THE  AMOUNTS  BY  MMICH  THE  STEP  SIZE  GEAR 

shoulo  be  divided  at  oroer  one  lomer.  at  this  order.  ano  at  oroer  gear 

ONE  HIGHER*  RESPECTIVELY.  GEAR 

GEAR 

550  pR2  a (D/E) ••ENQ2* 1 .2  GEAR 

pR3  > l.E  20  GEAR 

IF  ( (Nq.GE.MAXDER) .OR. (KFLAG.LE.~1 ) > GO  TO  S70  GEAR 

D * 0.  GEAR 

DO  560  I * l.N  GEAR 

560  D « D * MErRORU)  * SAVE  « 10.  I ) l/YMAX  C I )I**2  GEAR 

pH3  a (O/EUP ) *»ENQ3M •*  GEAR 

570  PRI  a l.E  20  GEAR 

IF  (NO.LE.l)  GO  TO  590  GEAR 

D ■ 0.  GEAR 

DO  580  I ■ l.N  GEAR 

580  D * D ♦ 1 7 ( I .KI/YNAA 1 1 H *#2  GEAR 

PRI  a (O/EDWN) **ENQl*l .3  GEAR 

5*0  continue  gear 

IF  (PR2.LE.PR3I  GO  TO  650  GEAR 

IF  (PR3.LT. PRI)  GO  TO  660  GEAR 

600  R * 1.0/AMAXl (PRl.t.E-0*)  GEAR 

NEMO  ■ NO” 1 GEAR 

610  IDOUB  a 10  GEAR 

IF  ( (KpLAG.EQ. 1 ) .AND. (R.LT.l.t) > GO  TO  700  GEAR 

IF  (NEMO. LE. NO)  GO  TO  630  GEAR 

C COMPUTE  ONE  ADDITIONAL  SCALED  DERIVATIVE  IF  OROER  IS  INCREASED.  GEAR 
DO  620  I « l.N  GEAR 

6?0  Y«1,nEmO«1)  a ERROR<I>«A(K)/K  GEAR 

630  K * NEwO*l  GEAR 

IF  (KFlAG.EQ.1)  GO  TO  670  GEAR 

RACUM  a RACUM*R  GEAR 

IRET1  a 3 GEAR 

GO  TO  750  GEAR 

6*0  IF  (NEmQ.EO.NQ)  GO  TO  250  GEAR 

NO  a NEMO  GEAR 

GO  TO  170  GEAR 

650  IF  (PR2.GT.PRD  GO  TO  600  GEAR 

NEMq  a no  gear 

R » 1.0/AHAxl (PR2.I.E-0*)  GEAR 

GO  TO  610  GEAR 

660  R • 1.0/ANAxl (PR3.1.E-0*)  GE*R 

NEMq  a NQ»1  GEAR 

GO  TO  610  GEAR 

670  IRET  » 2 GEAR 

R « AH  INI (R.HMAX/ARS (H) ) GEAR 

H * H*P  GEAR 

HNEm  « H GEAR 

IF  (NO. EO. NEMO)  GO  TO  680  GEAR 

NO  a NEMO  GEAR 

GO  TO  170  GEAR 

680  Rl  a |,  GEAR 

00  690  J ■ 2.K  GEAR 


Rl  * Rl*R 

GEAR 

629 

00  690  I * l.N 

GEAR 

630 

690 

Y I I » J>  ■ Y ( 1 « J)  *R  1 

GEAR 

631 

lOOuB  a K 

GEAR 

632 

TOO 

DO  710  1 « l.N 

GEAR 

633 

710 

YHAXIIi  « AMAX1  (YMAXIl)  , ABS(YU.lH) 

GEAR 

63* 

jSURT  « HQ 

GEAR 

635 

RETURN 

GEAR 

636 

720 

IF  (NO.EQ.l)  GO  TO  780 

GEAR 

637 

c 

GEAR 

638 

c 

GEAR 

639 

CALL  OnDT  <N.  T.  Yt  SAVE INg* 111 

GEAR 

6*0 

c 

GEAR 

6*1 

c 

GEAR 

6*2 

R ■ H/hOLD 

GEAR 

6*3 

DO  730  1 « l.N 

GEAR 

64»l> 

r « I . 1 » « SAVE  < 1 « l > 

GEAR 

6*5 

SAVE«2,I)  * HOLO*S*VE <N1 * I . 1 ) 

GEAR 

6*6 

730 

Y«I,2»  » SAVE (2» I > #R 

GEAR 

6*7 

NO  . 1 

GEAR 

6*8 

kFl*G  a 1 

GEAR 

6*9 

GO  TO  I 70 

GEAR 

650 

7*0 

KFLAG  * -1 

GEAR 

651 

HNEW  « H 

GEAR 

652 

jSl art  ■ NO 

GEAR 

653 

RETljRN 

GEAR 

65* 

c 

GEAR 

655 

c 

THIS  SECTION  SCALES  ALL  VARIABLES  CONNECTED  WITH  H ANO  RETURNS 

GEAR 

656 

c 

TO  the  entering  section. 

GEAR 

657 

c 

GEAR 

658 

750 

RACUM  a AHAX1 (ABS<HHIN/HOLOI «RACUM) 

GEAR 

659 

RACUM  a AHIN1 <RACIM«A8S(HMAX/H0LD> ) 

GEAR 

660 

Rl  a 1.0 

GEAR 

661 

DO  760  J * 2.K 

GEAR 

662 

Rl  a Rl*RACUM 

GEAR 

663 

DO  760  I * l.N 

GEAR 

66* 

7*0 

Y 1 1 « J)  » SAVE(J.D»R1 

GEAR 

665 

H ■ HOlO'RACUM 

GEAR 

666 

00  770  I » l.N 

GEAR 

667 

770 

Y<I,1»  » SAVEU.H 

GEAR 

668 

iDOue  a K 

GEAR 

669 

GO  TO  ( 1 30.250.6*0) * I RET  1 

GEAR 

670 

7*0 

kF^aG  a -* 

GEAR 

671 

GO  TO  *70 

GEAR 

672 

return 

GEAR 

673 

end 

GEAR 

67* 
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subroutine  plot  <nm»  mp,  molt,  r,  ro*  oy«  x,  xo*  ox,  scalex,  plot 

I SCALEY*  same,  CLEAR,  CENTER,  NAME,  NP,  IP)  PLOT 

C PLOT 

C PLOT 

C PLOT 

c this  program  generates  linear,  semilog,  or  loglog  plots  for  up  to  10  plot 

C VECTORS  rihJ).  J * 1.2,...,NP,  PROVlOED  BY  AN  ARRAY  DIMENSIONED  PLOT 

C Y ( MM * * . I IN  THE  CALLING  PROGRAM.  EACH  VECTOR  IS  CONSIDERED  TO  BE  A PLOT 
C FUNCTION  OF  *N  INDEPENDENT  VARIABLE  X(I>*  DEFINED  BELOW.  ALL  PLOTS  PLOT 
C ARE  OEnERaTEO  FOR  EACH  VECTOR  BY  SAMPLING  MP  POINTS,  TAKEN  WITH  A RE-  PLOT 
C PETITION  INOEX  MULT  (I.E.,  I ■ 1,  CI»MULT),  ....  (1  * (MP-1)*NULT)>.  PLOT 

c horizontally,  the  plotting  resolution  consists  of  a maximum  of  so  plot 


C SUBiNTePVaLS.  CORRESPONDING  TO  Si  POINTS.  IF  mp  < 51,  MP  POINTS  ARE  PLOT 

c plotted,  there  are  options  us  well  as  program  defaults)  for  speci-  plot 

C FVING  INITIAL  VALUES  ANO  TICK  MARK  INTERVALS  EITHER  BY  DIRECT  INPUT,  PLOT 

C OR  BY  INTERNAL  AUTOMATIC  SCALING.  AUTOMATIC  SCALING*  which  is  ACCOM-  PLOT 

C PLISHEo  BY  SUBROUTINES  “AXIS*  AND  MNTERP**  GENERATES  CONVENIENT  IN-  PLOT 
C TEGE«  VALUES  FOR  INITIAL  VALUES  AND  TICK  MARK  INTERVALS.  IF  SCALEX  PLOT 
C ■ TRUE  IS  SPECIFIED,  AUTOMATIC  SCALING  OF  THE  HORIZONTAL  AXIS  OCCURS.  PLOT 
C IF  MP  » 51,  THE  PROGRAM  DEFAULTS  TO  AUTOMATIC  SCALING  FOR  THE  X-AXIS,  PLOT 

c and  Internally  generates*  by  interpolation*  si  points  to  be  plotted,  plot 

C IT  IS  ASSUMED  THAT  the  VECTOR  x IS  OEFINED  BV  X<I)  « XO  ♦ (I-l)*OX,  PLOT 
C IN  WHICH  CASE,  THE  X-ORIGIN  IS  XO  ANO  THE  TICK  MARK  INTERVAL  IS  SOX.  PLOT 
C HOWEVER,  tHEHE  ARE  TWO  EXCEPTIONS  IF  OX  ■ 0»  1)  FOR  AUTOMATIC  X-AXIS  PLOT 
C SCALING*  THE  INPUT  VECTOR  XII)  IS  USED*  AND  2)  IF  MP  | 51.  IT  IS  AS-  PLOT 
C SUMEO  THAT  THE  INDEPENDENT  VARIABLE  IS  JUST  ThE  INTEGER  I.  CThUS.  IF  PLOT 
C DATA  IS  OEFINEO  OVER  A NONUNIFORM  GRID  XU),  SCALEX  • TRUE  *ND  DX  > 0 PLOT 
C SHOULD  BE  SPECIFIED  By  THE  CALLING  PROGRAM.)  IF  SCALEY  * TRUE*  AUTO-  PLOT 

C MATIC  SCALING  OF  THE  VERTICAL  AXIS  OCCURS  FOR  THE  PLOT|S).  IF  SCALEY  PLOT 


C ■ FALSE*  THE  ORIGtNlS)  AND  TIC*  MARK  INTERVAL (S)  FOR  THE  VERTICAL  PLOT 
C AXIS  ‘OIVIOED  INTO  TEN  TICKS)  ARE  TAKEN  To  BE  THOSE  SPECIFIED  BY  THE  PLOT 
C VECTORS  Y0I2>  ANO  DY(2>»  UNLESS  Dr  11 > OR  0YI2)  » 0*  IN  WHICH  CASE  PLOT 

C ONE*  Both,  or  all  vectors  ARE  AUTOMATICALLY  scaled  by  default,  if  plot 
C SAME  » TRUE,  PLOT(S)  ARE  SCALED  TOGETHER  USING  SPECIFIED  VALUES  YOU!  PLOT 
C ANO  OT(l)  IF  DYU)  A 0*  OR  AUTOMATIC  SCALE  VALUES  IF  OVU)  » 0.  IN  PLOT 
C THE  CASE  THAT  SAME  ■ TRUE,  A SINGLE  CCOMMON)  VERTICAL  SCALE  FOR  ThE  PLOT 
C PLOT  IS)  WILL  APPEAR  At  THE  LEFT.  IF  SAME  « FALSE  AnD  TWO  PLOTS  (NP  * PLOT 
C 2)  ARE  REQUESTED,  different  left  and  RIGHT  H ANO  SCALING  will  appear.  Plot 
C PLOTS  MILL  BE  SMOOTHED  BY  INTERPOLATION,  ANO  WILL  BE  CENTERED  ON  THE  PLOT 
C PAGE  * IF  REQUESTED*.  PLOT 
C PLOT 
C miscellaneous  CONDITIONS  — PLOT 
C PLOT 
C 1)  IF  THE  DATA  HAS  A TOTAL  RANGE  THAT  IS  LESS  THAN  l.E-04  TIMES  ITS  PLOT 
C AVERAGE  VALUE.  THE  SMALL  (AC)  VARIATIONS  WILL  BE  PLOTTED  WITH  A PLOT 

C <0C)  baseline  value  SPECIFIED.  plot 

C PLOT 
C 2)  PROGRAM  defaults  TO  FIRST  10  VECTORS  if  NP  * 10.  PLOT 
C PLOT 
C 3)  PROGRAM  DEFAULTS  TO  PLOT  OF  first  vector  only  if  histogram  is  plot 
c Requested  (clear  « false*.  plot 

C PLOT 
C A)  IF  NP  ■ 2 ANO  SAME  ■ TRUE*  PROGRAM  DEFAULTS  TO  SAME  ■ FALSE  IF  PLOT 

c the  total  range  of  the  smaller  of  the  two  vectors  is  less  than  plot 
C FIVE  TINES  the  total  range  of  the  two  VECTORS  scaled  TOGETHER.  PLOT 
C PLOT 
c 5)  IF  NP  A 2*  only  LEFT-HANO  TICK  MARKS  ARE  GENERATED  ON  THE  PLOT 
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19 
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23 

24 
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VERTICAL  SI06. 

PLOT 

59 

PLOT 

60 

6) 

PAGE  SKIP  and 

HEADING  TITLES  must  be  gENERATEO  in  the  CALLING 

PLOT 

61 

PROGRAM. 

PLOT 

62 

PLOT 

63 

71 

IF  any  LOG 

OPTION  IS  CALLEO.  INITIAL  AND  INCREMENTAL  VALUES  EX- 

PLOT 

66 

plicitly  specified  without  automatic  scaling  request  ie.g..  xo. 

PLOT 

65 

OX,  Y0«  OY) 

ARE  UNOERSTOOO  TO  BE  ACTUAL  LOG  QUANTITIES. 

PLOT 

66 

PLOT 

67 

a> 

IF  HP  DATA 

POINTS  SAMPLED  WITH  A REPETITION  MULTIPLE  MULT  Ex- 

PLOT 

68 

CEEDS  mm.  mult 

IS  REOUCEO  TO  ITS  MAXIMUM  ALLOWED  VALUE. 

PLOT 

69 

PLOT 

70 

INPUT  parameters  - 

- 

PLOT 

71 

PLOT 

72 

*0 

8 

INITIAL  value  FOR  INOEPENOENT  VARIABLE  X. 

PLOT 

73 

PLOT 

74 

Ox 

• 

INCREMENTAL  VALUE  FOR  THE  INOEPENOENT  VARIABLE  X. 

PLOT 

75 

CORRESPONDING  TO  ft  RESOLUTION  OF  THE  X-AXIS  INTO 

PLOT 

76 

50  INTERVALS.  SPANNED  BT  A MAXIMUM  OF  51  POINTS. 

PLOT 

77 

tick  mark  interval  ■ s*mult»dx 

PLOT 

78 

PLOT 

79 

VOII) 

a 

INITIAL  VALUE  FOR  LEFT  <I>1)  AnO  RIGHT  <I»2I  VER- 

PLOT 

80 

TICAL  SCALES. 

PLOT 

81 

PLOT 

82 

OYII) 

a 

incremental  tick  m*rk  interval  for  the  left  <i»i» 

PLOT 

83 

ANO  RIGHT  MANO  11-21  VERTICAL  SCALES. 

PLOT 

86 

PLOT 

85 

X C I ) 

a 

INOEPENOENT  VARIABLE  PROVIDED  BY  THE  CALLING  PRO- 

PLOT 

86 

GRAM.  USED  ONLY  WHEN  OX  ■ 0 ANO  AUTOMATIC  X-AXIS 

PLOT 

87 

SCALING  IS  REQUIRED.  THE  VECTOR  X IS  DESTROYED 

PLOT 

88 

IN  SOME  SITUATIONS. 

PLOT 

89 

PLOT 

90 

Mm 

a 

DIMENSION  DECLARATOR  FOR  THE  ARRAY  Y IN  THE  CALL- 

PLOT 

91 

ING  PROGRAM t Y IMM. . . ) . 

PLOT 

92 

PLOT 

93 

Mp 

a 

NUMBER  OF  DATA  POINTS  TO  BE  SAMPLED  FOR  PLOT  GEN- 

PLOT 

94 

generation. 

PLOT 

95 

PLOT 

96 

mult 

s 

REPETITION  FACTOR. 

PLOT 

97 

PLOT 

98 

T(I.J» 

a 

ARRAY.  DIMENSIONED  Y C Mm ...  1 IN  THE  CALLING  PRO- 

PLOT 

99 

GRAM.  PLOTS  OF  THE  VECTORS  J ■ ARE 

PLOT 

100 

GENERATEO  FROM  DATA  POINTS  VIl.JI.  Y(I.MULT.J). 

PLOT 

101 

Y • 1 *2*MULT , J) . ...»  ANO  EACH  POINT  YII.JI  IS  AS- 

PLOT 

102 

SUMED  TO  CORRESPONo  TO  THE  DEPENDENT  VARIABLE 

PLOT 

103 

X<I>  » XO  . <I-1)*MULT*DX.  IF  DX  > 0 ANO  AUTOMA- 

PLOT 

104 

TIC  X-AXIS  SCALING  IS  REOUIREO.  THE  VECTOR  X PRO- 

PLOT 

105 

VIDED  BY  INPUT  IS  USED.  * 

PLOT 

106 

PLOT 

107 

Clear 

a 

LOGICAL  VARIABLE 

PLOT 

108 

PLOT 

109 

CLEAR  « TRUE  * NORMAL  PLOT 

PLOT 

110 

clear  ■ false*  histogram 

PLOT 

111 

PLOT 

112 

center 

a 

LOGICAL  VARIABLE  To  center  PLOT  on  pagf. 

PLOT 

113 

PLOT 

114 

scale* 

a 

LOGICAL  VARIABLE  To  SPECIFY  automatic  SCALING  of 

PLOT 

115 

97 


n 

'■r 

I ■ 


c 

HORIZONTAL  AXIS. 

PLOT 

116 

c 

plot 

117 

c 

scale*  ■ 

LOGICAL  VARIA8LE  To  SPECIFY  AUTOMATIC  SCALING 

OF 

plot 

1 IB 

c 

VERTICAL  axis. 

plot 

119 

c 

plot 

120 

c 

same  - 

LOGICAL  VARIABLE  To  SPECIFY  SAME  SCALE  ON  THE 

LEFT 

plot 

121 

c 

ANO  RIGHT  HANO  VERTICAL  AXES. 

plot 

122 

c 

PLOT 

123 

c 

NAME(J)  a 

VECTOR  OF  ROROS  (lO  BCD  CHARACTERS)  To  LABEL 

THE 

PLOT 

12* 

c 

jth  vector  plotteo. 

PLOT 

125 

c 

PLOT 

126 

c 

Np  a 

number  OF  VECTORS  TO  BE  PLOTTED  ( IF  NP  » 10. 

de- 

PLOT 

127 

c 

FAULT  TO  ONLY  10  PLOTS  OCCURS.) 

PLOT 

l?n 

c 

PLOT 

129 

c 

IP  ■ 

PLOT  OPTION*  FUNCTIONALLY  SIMILAR  To  THE  USE 

OF 

PLOT 

130 

c 

the  four  alternate  entry  POINTS* 

PLOT 

131 

c 

PLOT 

132 

c 

PLOT  (JP  a 0)  — Y VS  X. 

PLOT 

133 

c 

PVLOGX  (IP  ■ -1)  --  LOGY  VS  X. 

PLOT 

13* 

c 

PXLOGV  (IP  ■ 2)  — V VS  LOGX. 

PLOT 

1 35 

c 

PLOGLOG  (IP  ■ 1)  — LOGY  VS  LOGX. 

PLOT 

136 

c 

1 

PLOT 

137 

c 

PLOT 

138 

c 

PLOT 

139 

DIMENSION  V (MULT *Mm* 1 > * YP (51*101*  K (2*51 ) * TICK (111.  FORMllO), 

PLOT 

1*0 

1 OY|l>.  Xl (2) « 

KX(2>*  OOT (10) , XA<10>*  XB(10),  CAPTION(IO),  Z0(3). 

PLOT 

1*1 

2 02(3),  Xl*ULT, 

D*  Y0(1).  NAME ( 1 ) 

PLOT 

1*2 

c 

PLOT 

1*3 

LOGICAL  *1  * T2, 

test,  scalex.  scaley*  unscale*  center*  clear* 

PLOT 

1** 

1 SAmE*  DIFF,  SCALE,  XLOG.  YLOG 

PLOT 

1*5 

c 

PLOT 

1*6 

integer  oot 

PLOT 

1*7 

0*1 A DOT  / 1M*, 

1H.*  lHX.  IH-.  1H. * 1H0*  IMS.  1H5,  IMa,  lH,  / 

PLOT 

1*8 

c 

PLOT 

1*9 

c 

SET  UP  GENERAL 

control  conditions  — 

PLOT 

ISO 

c 

PLOT 

151 

I Sr  a 0 

PLOT 

152 

TEST  a (IP-l>a(IP*l)«(IP-2>.EO.O 

PLOT 

153 

IF  (TEST)  1SW  a 

IP 

PLOT 

15* 

GO  TO  *0 

PLOT 

155 

ENTRY  pVLOGx 

PLOT 

156 

ISM  a -1 

PLOT 

157 

GO  TO  *0 

PLOT 

158 

entry  pxlogv 

PLOT 

159 

I Sr  a i 

PLOT 

160 

GO  TO  aO 

PLOT 

161 

entry  PLOGLOG 

PLOT 

162 

ISR  a 1 

PLOT 

163 

AO  NVEC  ■ 10 

PLOT 

16* 

D*NULT  a OXaMULT 

PLOT 

165 

XLOg  ■ lABS(ISW) .EO.l 

PLOT 

166 

YLOg  ■ ISM.GC.l 

PLOT 

167 

NPLOT  a NP 

PLOT 

166 

IF  (NPLOT. LO.O) 

GO  TO  99 

PLOT 

169 

IF(NP.GT.NVEC) 

NPLOT  a NVEC 

PLOT 

170 

IF  ( ,NoT .CLEAR) 

NPLOT  a 1 

PLOT 

171 

OlFr  ■ .FALSE. 

PLOT 

172 

98 


non  non 


Jf  (NPL0T.EQ.2)  OIFF  ■ .NOT. SAME 

PLOT 

173 

MPLOT  * HP 

PLOT 

17* 

SCALE  ■ SCALE*. OR. (HPL0T.GT.51) 

PLOT 

175 

If ‘SCALE)  HPLOT  » 51 

PLOT 

176 

N*  ■ HI  » 1 

PLOT 

177 

MB  a M2  « HPLOT 

PLOT 

178 

DO  50  I«l»  NVEC 

PLOT 

179 

*A(  1 1 a XB<n  » 0.0 

PLOT 

180 

oZ<i>  ■ or c i > 

PLOT 

181 

Z0<1)  a V0«1) 

PLOT 

182 

Z0<2)  a OZ (2)  a o.o 

PLOT 

183 

Z0«3|  a XO 

PLOT 

184 

OZ 1 3)  * 5.*0XMULT 

PLOT 

185 

PLOT 

186 

SET  UP  X-AXIS  CONTROL  — 

PLOT 

187 

PLOT 

188 

UNSCALE  * .NOT. SCALE 

PLOT 

189 

XHAx  « XMIN  a o. 

PLOT 

190 

IF  (UNsCALEl  60  TO  61 

PLOT 

191 

lE(OX.EO.O.O)  GO  TO  63 

PLOT 

192 

X‘1,1)  • XO 

PLOT 

193 

0°  54  I“2*  MP 

PLOT 

194 

X«1,I)  ■ *d.I-l)  * oxmult 

PLOT 

195 

XHIN  « Xlltl) 

PLOT 

196 

XHAx  * X ( 1 *MP) 

PLOT 

197 

E»*S  « l.E-05*A8S«XMAX) 

PLOT 

198 

XHAX  « XHAX  - EPS 

PLOT 

199 

EPS  ■ 1.E-05*ABS»XMIN) 

PLOT 

200 

XH In  « XHIN  ♦ EPS 

PLOT 

201 

lFI.NOT.XLOG)  60  TO  61 

PLOT 

202 

IF  IXHlN.EO.O.)  XHIN  a x(1.2»/10. 

PLOT 

203 

IF  ( XMjN.LE . 0 . ) GO  TO  98 

PLOT 

204 

XHIN  * ALOGIO (XHIN) 

PLOT 

205 

XHAx  « ALOGIO (XHAX) 

PLOT 

206 

CALL  AXIS  (SCALE.  XHAX,  XHIN.  Z0(3>,  0Z<3),  XI) 

PLOT 

207 

PLOT 

208 

SET  UP  PLOTTING  ARRAYS  YP  — 

PLOT 

209 

PLOT 

210 

X I - Zo  < 3) 

PLOT 

211 

oxi  a 0Z(3)/S.0 

PLOT 

212 

00  37  H»l.  MPLOT 

PLOT 

213 

*P  a XI 

PLOT 

214 

IF(XLOG)  *p  * 10.0**XI 

PLOT 

215 

IF (UNSCALE)  GO  TO  53 

PLOT 

216 

IF  (XP.GT.X(l.II)  GO  TO  55 

PLOT 

217 

Ml  a M 

PLOT 

218 

MA  a Ml*l 

PLOT 

219 

IF  (XP.LT.XI1.MP) ) HB  a M 

PLOT 

220 

M2  a MB* 1 

PLOT 

221 

00  33  I«l*  nplot 

PLOT 

222 

yP (h. l ) ■ yii.m.i) 

PLOT 

223 

IF (UNSCALE)  go  TO  33 

PLOT 

2?4 

C*LL  InTEHP  12,  XP.  YP(M.I).  X,  Y(l*ltp*  MULT,  MP) 

PLOT 

225 

continue 

PLOT 

226 

xl  a *1  • Ox  I 

PLOT 

227 

IF  (M2.GT.MPL0T)  H2  ■ MPLOT 

PLOT 

228 

IF(.nOt.YLOG)  GO  TO  *5 

PLOT 

229 

99 


c 


c 

c 

c 


4 


c 

c 

I 

I 


i 


plot 

230 

Hi  * ha 

PLOT 

231 

H2  ■ MB 

PLOT 

232 

DO  34  I "It  NPLOT 

PLOT 

233 

D*>  3*  H*H  1 * M2 

PLOT 

234 

IF  (YPtM.I)  .LE.O.)  GO  TO  90 

PLOT 

235 

3*  yP<M»I>  « *LOGlO(TP(H,n ) 

PLOT 

236 

PLOT 

237 

establish  maxihuh  ano  hinihum  values  fop  Each  vector  — 

PLOT 

238 

PLOT 

239 

AS  po  1 lalt  NPLOT 

PLOT 

240 

X*<I)  a XB«n  * YPIMA.I) 

PLOT 

241 

DU  2 H 1 HA, mb 

PLOT 

242 

VMI  a yP IM, 1 ) 

PLOT 

243 

lF»XA(I).GT.YHI>  XA<I>  ■ YMI 

PLOT 

244 

2 IF«xb(I».LT.yhI>  X8«I)  > VMI 

PLOT 

245 

I F (XA(I).GE.O.)  GO  TO  I 

PLOT 

246 

IF  (XB(I).LE.O.)  GO  TO  1 

PLOT 

247 

A ■ ABS(XA»I)  « xB( I ) ) 

PLOT 

240 

B * ABS<XA«I)  - XB(I) > 

PLOT 

249 

IF  ((B-X>.GT.(A»B)/100.)  GO  TO  1 

PLOT 

250 

B * XBllI 

PLOT 

251 

IF  (B.GT.M  XA(I)  - 0. 

PLOT 

252 

IF  (B.LT.A)  XB(I)  ■ 0. 

PLOT 

253 

I CUNtINiiE 

PLOT 

254 

nscale  ■ 1 

PLOT 

255 

PLOT 

256 

FIND  LARGEST  XBU)  ANO  SMALLEST  XA(I)  — 

PLOT 

257 

PLOT 

258 

IF  (HPlOT.EO.1)  GO  TO  18 

PLOT 

259 

NSCALE  ■ 2 

PLOT 

260 

XMIm  ■ XA 1 1 1 

PLOT 

261 

rMAr  a XBd) 

plot 

262 

DO  23  1 • 2. NPLOT 

PLOT 

263 

IF(|AI|>,LT.rMINI  XHIN  a XAIII 

fiQT 

264 

23  IF«X!MI».GT.XHAX»  XMAX  a X0(l) 

PLOT 

265 

E**S  * 1.0E-0S»A8S<XMAX-XM!NI 

PLOT 

266 

XMIn  • XHIN  • CPS 

PLOT 

267 

XMAr  ■ XMAX  - CPS 

PLOT 

260 

PLOT 

269 

SET  UP  Y-AXIS  CONTROL  IFOR  SINGLE  OR  DOUBLE  SCALING)  — 

PLOT 

270 

PLOT 

271 

IF  I.NOT.DIFF)  GO  TO  10 

PLOT 

272 

2012)  a Y# 12) 

PLOT 

273 

D2«2)  • OY 12) 

PLOT 

274 

10  A ■ XBl  1 > * XAU) 

PLOT 

275 

B » XB |2)  - X A 12) 

PLOT 

276 

A * AMAX1 1X011,. A) 

PLOT 

277 

B » AMAX1 1X0(2) ,0) 

PLOT 

278 

OS  a AM  INI  I A , 0 1 

PLOT 

279 

XMULT  a 10. 

PLOT 

280 

IF  (NPLOT. EO. 2)  OIFF  • 0 IFF. OR. | (XMAX-XHINl .GT.XNULT»DS> 

PLOT 

281 

iFlolFrl  GO  TO  10 

PLOT 

282 

NSCALE  • 1 

PLOT 

283 

02<2)  « 02(1) 

PLOT 

284 

Z0(2>  , 20(1) 

PLOT 

285 

XA(I)  a XMIn 

PLOT 

286 

100 


XB  < 1 ) s XMAX 

PLOT 

287 

XA<2)  z XB<2)  z 0.0 

PLOT 

288 

c 

PLOT 

289 

18 

DO  15  I * l.NSCALE 

PLOT 

290 

SCALE  = SCALEV.OR.(OZd)  .EQ.0.0) 

PLOT 

291 

IF  (.NOT. CLEAR)  X A ( I > z 0. 

PLOT 

292 

CALL  AXIS  (SCALE.  XB(I),  XA(I).  ZO(I),  DZ ( I) . XI) 

PLOT 

293 

NO  z 0 

PLOT 

29A 

IF  (.NOT. SCALE)  60  TO  29 

PLOT 

295 

XHAx  * ZO(I)  ♦ lO.oOZ(I) 

PLOT 

296 

MO  z 0.5«< (XMAX-XB(I) )-(XA( I)-ZO( I) ) )/DZ(I) 

PLOT 

297 

IF  MXI.EQ.O.).ANO.(ZO(I).EQ.O.)>  MO  * 0 

PLOT 

298 

29 

OS  z MO*Di(D 

PLOT 

299 

IF  (XI.EO.O.)  GO  To  31 

PLOT 

300 

Xl  * XI  - DS 

PLOT 

301 

Z® « I ) * ZO ( I ) ♦ DS 

PLOT 

302 

31 

ZO(p  * ZO(I)  - DS 

PLOT 

303 

15 

XA( I ) » Xl 

PLOT 

30A 

IF(.NOT.OIFF)  XA (2)  ■ X A ( 1 ) 

PLOT 

305 

c 

X* ( 1 ) * XA (2)  ARE  DC  BASELINE  VALUES  AT  THIS  POINT. 

PLOT 

306 

c 

PLOT 

307 

DO  38  1*1  ♦ NPLOT 

PLOT 

308 

Xl  « XA  HI 

PLOT 

309 

IF ( I .EQ.2)  XI  * XA(2) 

PLOT 

310 

DO  38  M*M1.M2 

PLOT 

311 

38 

VP(M.I)  * VP(M.I)  - XI 

PLOT 

312 

c 

PLOT 

313 

DO  11  I»l»  NSCALE 

PLOT 

31 A 

11 

Xl ( I ) a ZO ( I ) . 11.0*OZ(I) 

PLOT 

315 

KX ( l ) Z KX ( 2 ) * -1 

PLOT 

316 

E**S  * 0.02 

PLOT 

317 

ETA  z o.5  ♦ EPS 

PLOT 

318 

c 

PLOT 

319 

c 

DETERMINE  LOCATION  OF  HORIZONTAL  AXES  — 

PLOT 

320 

c 

PLOT 

321 

DO  9 I • l.NSCALE 

PLOT 

322 

IF(OZ(I).EO.O.O)  GO  TO  9 

PLOT 

323 

KX ( i ) Z -S.0*Z0(I)/DZ(I)*1. 00001 

PLOT 

32A 

9 

CONTINUE 

PLOT 

325 

c 

PLOT 

326 

c 

CONVERT  plotting  array  YP  to  NORMALIZE  values  between 

0 and  SO 

PLOT 

327 

c 

( CORRESPOND ING  TO  lines  1.2. 3.. ...51  FOR  EACH  PLOTTED 

PAGE)  — 

PLOT 

328 

c 

PLOT 

329 

DO  A I 3 1» NPLOT 

PLOT 

330 

DXI  z qZ(1) 

PLOT 

331 

XOI  z zO(l) 

PLOT 

332 

IF  (I.nE.2)  GO  TO  88 

PLOT 

333 

IF  (.NOT.UIFF)  GO  TO  88 

PLOT 

33A 

XOI  z z0(2> 

PLOT 

335 

DXI  z oZ (2) 

PLOT 

336 

88 

continue 

PLOT 

337 

DO  A M z Ml, M2 

PLOT 

338 

* 

VP(M.I)  * ( (YP(M,I)-X0I)/0XI)*5.0 

PLOT 

339 

c 

PLOT 

3A0 

c 

determine  numbep  of  horizontal  elements  per  line  of  plot  — 

PLOT 

3ai 

c 

PLOT 

3A2 

iMAx  * (M2  . 3)/5 

PLOT 

3A3 

101 


c 

c 

c 


lM*Xl  a lMAXM 

PLOT 

344 

MAX  > sMMAX  . 1 

PLOT 

345 

M4X2  * 2*MAX 

PLOT 

346 

N * 68  - M*x 

PLOT 

347 

in.NOT.OlFn  N = N»5 

PLOT 

348 

IFC. NOT. CENTER)  N * 9 

PLOT 

349 

N2  * N-2 

PLOT 

350 

ENCOOE(TO.loO.rORM)  N.  N2.  MAX? , N 

PLOT 

351 

loo 

FORMAT  (1H(I2,7HX102A1) .7H|1H.1PgI2.3H.A.I3»10hX.1PG14.4)SX.4H(1H* 

PLOT 

352 

1 12,  20HX.7x.Al.5H  — «A10> ) 

PLOT 

353 

ENCODE (90.101. CAPTION)  N,  N.  N 

plot 

354 

101 

FORMAT (4H ( 1h* , 12 ,?4HX4x 1 7H  • LHS  AXIS) ,5H( 1H», , I?,  23HX.22X. 

PLOT 

355 

♦ * » l*,E12.4,0)*) . 4H ( 1H» » I2.24HX4X 1 7H  ♦ — RHS  AXIS)! 

PLOT 

356 

PLOT 

357 

plot  si  lines  — 

PLOT 

358 

PLOT 

359 

LlNEl  * 5 

PLOT 

360 

DO  6 L*l.  51 

PLOT 

361 

LL  « L-l 

PLOT 

362 

XLINE  * LINE  * 51-L 

PLOT 

363 

T 1 a (LINE. EO.KX(l)). OR. (LINE. E0.KXI2)) 

PLOT 

364 

T2  a ILL/50 )*S0.EO.LL 

PLOT 

365 

TEST  ■ TI.OR.T? 

PLOT 

366 

DO  5 Mai.  MAX 

PLOT 

367 

K(2,M>  « 1H 

PLOT 

368 

DO  42  1*1.  NPLOT 

PLOT 

369 

IF(k(1.M).EQ.D0T(I)>  GO  TO  44 

PLOT 

370 

*2 

continue 

PLOT 

371 

K«1,M)  > IM 

PLOT 

372 

44 

IF«CLEAR)  K(1,M)  « 1H 

PLOT 

373 

5 

IF(TEST)  K(1,M)  a K (2.M)  a 1H- 

PLOT 

374 

IF(. NOT. TEST)  GO  TO  14 

PLOT 

375 

DO  8 I a 1 • 11 

PLOT 

376 

II  a 1 . 5* ( 1-1 ) 

PLOT 

377 

a 

Kll.Il)  * lHl 

PLOT 

378 

14 

K 1 1 , 1 ) * Ml. MAX)  a 1HI 

PLOT 

379 

IF(l.EO.SI)  GO  TO  22 

PLOT 

380 

T2  a 5* (LL/5) .EO.LL 

PLOT 

381 

IF(.n0T.(T1.0R.T2)|  GO  TO  24 

PLOT 

382 

K <2, 1 ) a K(2, MAX-1)  • lH- 

PLOT 

383 

00  62  1*1 • NPLOT 

PLOT 

384 

IFIk(I.M) .EO. OOT(I))  GO  TO  64 

PLOT 

385 

62 

continue 

PLOT 

386 

K 1 1 .2)  * 1H- 

PLOT 

387 

64 

0°  66  I»l*  NPLOT 

PLOT 

388 

IF  Ik  1 1. MAX-1,. EO.OOt II))  GO  TO  24 

PLOT 

389 

66 

continue 

PLOT 

390 

Kll. MAx-1)  a IH- 

PLOT 

391 

24 

DO  3 I « 1 * NPLOT 

PLOT 

39? 

DO  3 M«M1»  M2 

PLOT 

393 

IFIaBS(XL1NE-TP(M»I)).LT.ETA)  Kll.M)  * DOT ( I ) 

PLOT 

394 

lF( (M.E0.M2) .OR. 1. NOT. CLEAR) > GO  To  3 

PLOT 

395 

xAVq  ■ IyPIM,I)»yP(M»1,I))/2.o 

PLOT 

396 

IFIaBS(XLINE-XAVG)  .LT.ETA)  M?.M)  a DOTH) 

PLOT 

397 

X 1 AVG  « 0.5* ( X AVG  ♦ TP(M.I)) 

PLOT 

398 

X2*VG  a 0.5* ( x AVG  » YP(m»1,I>> 

PLOT 

399 

IFIaBS(XLINE-XIAVG) .LT.ETA)  K(2,M)  a OOTID 

PLOT 

400 

102 


IFUBS(XLINe-X2AVG>.LT.ETA)  *(2.M  * DOT  ( J ) 

XMAX  « AMAX1 (xl AVG.X2AVG) 
xHIn  = AMIN1 ( X 1 AVG > X2AVG ) 

IF( (XLlNE.GE.XMIN) .ANO. (XLlNE.LE.XMAX) ) K(2,MI  = DOT(I) 
XMAx  * AM AX  1 (XI AVG. VP  t M» 1)1 

xHIn  s amini (xiavg.yp(m.I) ) 

IF< (XLINE.GE.XMIN) . ANO. (XLlNE.LE. XMAX))  K(l.M)  * DOT(I) 
XMAx  - AMAXl (X2AVG,YP(M»1,I) » 
xMIn  * AMIN1(X2AVG.YP(M*1.I)> 

IF( (XLINE.GE.XMIN) .AND. IXLINE.LE.XMAX) I K(1,M*1>  » DOT ( I ) 

3 continue 
??  K 1 2 .MAx ) = 1H 
MO  a 12 

TEST  * tL.LT. 49) .~ND. tL.GT.A4) 
iFt. NOT. TEST)  GO  To  20 

IF  t .NOT .OIFF . ANO.XA (l).EO.O.O)  GO  TO  20 
]F ( ( XA ( 1) .NE.O.O) .OR. t XA (2) .NE.O.O) ) Mo  * 21 
GO  TO  2l 

20  IF  tNPLOT.EQ.l)  GO  TO  13 
IF  (LINEI.NE.L)  GO  TO  13 
Ll  * L-* 

IF  (Ll.GT.NPLOT)  GO  TO  13 
LInEI  * LINE1  . 1 

21  DO  19  M*3»  MO 

19  Ktl.M)  * Kt2,M)  = 1M 

13  wRlTEt6*F0HMtl) ) (Ktl.M),  KI2.M),  M*J  • MAX) 

IF  (L.LE.4)  GO  TO  16 

IF  (LInE1.E0.(L*D ) WRITE  (6,F0RMt5>)  OOT(Ll).  NAME (Ll ) 

16  lFt.NOT.DlFF.AND.XAtl) .EO.O.O)  GO  TO  25 
IF(L.NE.A6)  GO  TO  28 
WRITE(6.CAPTI0N(1) ) 

iFtxA(l) .NE.O.O)  WRITE(6.CAPTI0N(4) ) XAtl) 

28  IF(L.NE.A7)  GO  TO  25 
IFt  .NOT.DIFF)  GO  TO  25 
WR1TEI6.CAPTI0N(7) ) 

lFtxA(2> .NE.O.O)  WRITE(6.CAPTI0N(4) ) XA(2) 

25  I F t (LL/5) *5.NE .LL ) GO  TO  6 
DO  17  I = l.NSCALE 
xi * i ) = x 1 1 1 1 - dz ( i > 

IF ( aBS (XI ( I ) ) .lT . 0.001*02 1 1 ) ) xl(I)  * 0.0 

17  XB(I)  * XI t I ) 

WRITE (A, FORM (2) ) txB(l).  1*1.  NSCALE) 

6 CONTINUE 
n8  a N-8 

iFtuNSCALE. ANO. (DX. EO.O.O) ) GO  TO  30 
AXMax  * ABS (20 (3)  ♦ !NAX*0Z(3>) 
lF(AXMAX. EO.O.O)  AxNAX  « 1 0 . 0» ABS tOZ t 3) ) 

MX  a A * ALOG10 (AXMAX) 

MX  a MX* 1 

IF  (A.LT.O.)  MX  * MX- 1 
S*  * 10.0**MX 

IFt (MX.LT.4) .AND. (MX.GE.O) ) Sx  * 1.0 

DO  7 1*1.  IMAX1 

TICk(I)  * 20(3)  » ( 1-1 ) *02 (3) 

7 TICK  (I)  * TlCKtD/S* 

SX  * TICKI2) 

IF  (SX.EO.O.)  sx  « T ICK (3) 


S*  a AflSISX) 
ho  . A(.OGlO(SX) 

IF(MO.GE.O)  N8  * N8  ♦ 1 
ENCODE ( 30*1 02. FORM)  N8 
JO?  FORmAT(2H(/,I2,2hX..BHUF10.2>  » 

W«ITE  (6. FORM)  ( TICK ( I ) . I=l,IMAXl> 
lF((MX.GE.*).0R.(MX.LT.0>)  WRITE (6* 103)  MX 

103  FORMAT  t/6Bx» 7HIX  10**,I3.*)«) 

GO  TO  99 

30  ENCODE (20. 300. FORM)  N 
300  FORMAT ( 2H </. 12. 11 HX>* 0*10110)) 

WRITE(G.FORM)  (M.  M»5.  MAX.  5) 

GO  TO  99 

98  WHITE  (6.104) 

1 04  FORMAT  (10(/).40X.*AN  attempt  was  made  to  plot  values  < 0 
1 OPT10N*10(/) ) 

99  RETURN 

end 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  AXIS  (SCALE.  XMAX.  XMIN,  XO.  OX.  XDC> 
LOGICAL  SCALE 


xMAx  AND  XMIN  *rE  THE  LARGEST  AND  SMALLEST  VALUES  OF  THE  VECTOR  TO 
BE  SCAlEO  WITH  convenient  ORIGIN  XO  AND  Tick  Mark  SPACING  OX.  XI 
IS  SET  EQUAL  TO  ZERO  UNLESS  The  AC  RANGE  10*DX  < X0/I000.  IN  THAT 
CASE  XDC  IS  SET  EQUAL  TO  XO*  XO  IS  SET  EQUAL  TO  ZERO.  AND  XMAX  AND 
XMIn  ARE  REDUCED  BY  AN  AMOUNT  XDC.  THUS.  XOC  CORRESPONDS  TO  A OC 
BASELINE  That  is  RETURNED  NONZERO  only  if  the  range  of  the  PLOT  is 
VERy  small  RELATIVE  TO  THE  ABSOLUTE  MAGNITUDE  OF  PLOTTEO  VALUES. 


IF  (.NOT. SCALE)  GO  TO  3 

x0  is  convenient  origin,  and  Range  io*dx  is  i.  2.  or  s times  some 
POWER  of  10  — 

IF  (ABS«XMAX-XMIN).GT.1.0E-10*(XMAx»XMiN>>  go  to  1 

xMIn  * o. 

IF  (XMaX.EU.O.)  XMAX  a 1.0 

1 XA  a XMIN 

4 B ■ XMAX  - XA 
M ■ A a ALOgIO(B) 

If  (A.LT.O.)  M a M-l 
OS  a 10.**N 
M * B/OS  * 1. 

B • 2. 

IF  (M.gT.2)  B 
IF  (M.gT.S)  B 
B ■ B*DS 
os  a 8/10. 

M ■ A a XA/OS 
IF  (A.LT.O.)  M 
XA  a M*DS 

IF  ( (XA»B) .LT.XMaX)  GO  TO  4 
DA  ■ DS 
XO  a XA 

CALCULATE  0c  baseline  VALUE  XDC  — 

3 xOC  a o* 

IF  (ABSIXOI .LT.l.E  04*OX)  go  to  2 
XMIn  « XMIN  - XO 
XMAx  « XMAX  - XO 
xOC  a xO 
XO  a 0. 

2 If  (.NOT. SCALE)  GO  TO  99 

allow  data  to  be  plotted  with  zero  origin  (at  top  or  bottom)  if 

POSSIBLE  ~ 
xl  a XO  • 10.*OX 

IF  HXmAX.lt. 10. •OX).ANO.(XO.GT.O.))  XO  a 0. 

IF  HXMlN.GT.-IO.vOX).ANO.(Xl.LT.O.)>  xO  ■ -io.»ox 
99  RETURN 

end 


s. 

1C. 


a M-l 


PLOT 

458 

PLOT 

459 

PLOT 

480 

PLOT 

*6! 

PLOT 

*62 

PLOT 

*63 

PLOT 

464 

PLOT 

465 

plot 

466 

PLOT 

*67 

PLOT 

*68 

PLOT 

*69 

PLOT 

*70 

PLOT 

*71 

PLOT 

*72 

PLOT 

*73 

PLOT 

*74 

PLOT 

*75 

AXIS 

2 

AXIS 

3 

AXIS 

4 

AXIS 

5 

AXIS 

6 

AXIS 

7 

AXIS 

8 

AXIS 

9 

AXIS 

10 

AXIS 

11 

AXIS 

12 

AXIS 

13 

AXIS 

14 

AXIS 

15 

AXIS 

16 

AXIS 

17 

AXIS 

18 

AXIS 

19 

AXIS 

20 

AXIS 

21 

AXIS 

22 

AXIS 

23 

AXIS 

24 

AXIS 

25 

AXIS 

26 

AXIS 

27 

AXIS 

28 

AXIS 

29 

AXIS 

30 

AXIS 

31 

AXIS 

32 

AXIS 

33 

AXIS 

34 

AXIS 

35 

AXIS 

36 

AXIS 

37 

AXIS 

38 

AXIS 

39 

AXIS 

40 

AXIS 

*1 

AXIS 

42 

AXIS 

43 

AXIS 

44 

AXIS 

45 

AXIS 

46 

AXIS 

47 

AXIS 

48 

AXIS 

49 

AXIS 

50 

AXIS 

51 

AXIS 

52 

AXIS 

53 

AXIS 

5* 

AXIS 

55 

AXIS 

56 

104 
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SUBROUTINE  INTERP  C IOCS.  XP.  TP,  X,  Y.  MULT.  N) 

INTFRP 

2 

interp 

3 

INTFRP 

4 

INTERP 

5 

TMIs  SUBROUTINE  WILL  INTERPOLATE  * VECTOR  Y,  DEFINED  AS  A FUNCTION 

INTERP 

f. 

Of  THE  VECTOR  X.  TO  PROOUCE  THE  VALUE  YP  THAT  CORRESPONDS  TO  XP. 

interp 

7 

jOEg  * 1.  2,  ...  SPECIFIES  LINEAR.  OUAORATIC.  ...  ETC.  INTERPOL*- 

INTERP 

S 

TlON.  THE  VECTORS  X AND  V PROVIDEo  BY  THE  CALLING  PROGRAM  ARE 

INTFRP 

9 

SAMPLED  WITH  A REPETITION  INDEX  ■ MULT,  AND  N POINTS  DEFINEO  BY 

INTERP 

10 

i ■ i.  1 1 *multi » ...»  ci  ♦ <n-u*multi  will  be  utilized,  thus. 

INTERP 

11 

THE  VECTORS  X,  Y MUST  BE  DIMENSIONED  AT  LEAST  ( 1 ♦ <N-1 > *MULT 1 

interp 

12 

IN  THE  CALLING  PROGRAM.  VALUES  FOR  THE  INOEPENOENT  VECTOR  X MUST 

INTERP 

13 

BE  IN  ASCENDING  ORDER.  XP  NEEO  NOT  LIE  WITHIN  THE  RANGE  IX(l).... 

interp 

1 A 

XU.(N-1)»MULT),  BUT  IF  IT  FALLS  OUTSIDE,  LINEAR  INTERPOLATION  IS 

INTERP 

IS 

GIVEN.  1THE  DEFAULT  TO  LINEAR  INTERPOLATION  CAN  BE  REMOVED  BY 

INTERP 

16 

DELETION  OF  ONE  CARO  BELOW.)  NORMAL  USAGE  IS  MULT  « 1. 

INTERP 

17 

INTERP 

18 

interp 

IQ 

INTERP 

20 

DIMENSION  T(20),  X(MULT.l),  Y(MULT.l) 

interp 

21 

INt  « lOEG 

interp 

22 

IF  (INT.LE.O)  INT  ■ I 

INTERP 

23 

IF  (INT.GE.N)  INT  ■ N-l 

INTERP 

2A 

IF  (N.lT.21  GO  TO  10 

interp 

25 

D»  4 I * 1'N 

interp 

26 

J * I 

interp 

27 

IF  (XP.LE.X ( 1 « I ) | GO  TO  l 

interp 

28 

A CONTINUE 

INTERP 

29 

l continue 

INTERP 

30 

DEFAULT  to  linear  INTERPOLATION  IF  XP  lies  outside  RANGE  OF  X — 

interp 

31 

IF  ((J.EO.l).OR.U.EO.N))  INT  - I 

interp 

32 

K ■ INT 

INTERP 

33 

INT  » iNT  ♦ 1 

interp 

3A 

J ■ J - INT/2 

interp 

35 

J « MAxO(J.l) 

interp 

36 

J ■ MInO(J.N-K) 

INTERP 

37 

JK  * J.K 

INTERP 

38 

00  2 I » J.JK 

INTERP 

39 

KK  « I_J.l 

interp 

AO 

T«Kkj  , Y ( 1 , I ) 

interp 

Al 

2 T<Kk«InT)  ■ XU»I)  - XP 

interp 

A2 

DO  3 I * l«K 

interp 

A3 

IP1  « I * 1 

INTERP 

AA 

DO  3 JJ  • IPl.INT 

INTERP 

A5 

3 T<JJ)  a <TCl)*T<JJ.INT)-TIJJ>*T(IMNT))/<Xll.JJ.J-H-X<l»I»J-l>l 

interp 

A6 

YP  « TlINT) 

interp 

a7 

RETURN 

INTERP 

*8 

10  YP  « Y<1.1) 

INTERP 

49 

RETURN 

INTERP 

50 

end 

INTERP 

51 

SUBROUTINE  SIMPSON  <F.  M,  H»  ANSI 

SIMPSON 

2 

SIMPSON 

SIMPSON 

SIMPSON 

this  subroutine  integrates  a function  f oefined  as  a vector  over  n » 

SIMPSON 

?M  INTERVALS.  F<1>,  F<2)  » F (3) » ...»  F12M.1).  THE  WIDTH  OF  THE  SUB- 

SIMPSON 

INTERVALS  IS  H.  AND  ThE  ANSWER  IS  RETURNED  IN  ANS. 

SIMPSON 

SIMPSON 

SIMPSON 

10 

SIMPSON 

II 

DIMENSION  F ( J ) 

SIMPSON 

12 

N ■ M ♦ M 

SIMPSON 

13 

SUM  ■ F IN* 1 ) - Fill 

SIMPSON 

1 A 

0«  1 I • 1.N.2 

SIMPSON 

15 

II  ■ 1.1 

SIMOSON 

16 

Y ■ F ( I ) ♦ Fill)  ♦ Fill) 

SIMPSON 

17 

1 SUM  a SUM  ♦ Y ♦ Y 

SIMPSON 

18 

ANS  ■ H*SUM/3. 

SIMPSON 

19 

RETURN 

SIMPSON 

20 

eno 

SIMPSON 

21 
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SUBROUTINE  EDITOR  < INPUT.  LIST) 


this  subroutine  reads  an  input  card  tile  to  the  eof.  and  writes  it 

ONTO  TAPE  5.  IF  LIST  * .TRUE.  IS  SPECIFIED.  IT  ALSO  PRODUCES  A 

written  output  listing  of  the  input  card  images. 


dimension  image <8> 

LOGICAL  list 

0*1  A SKIP.  K / SH(lHl),  123*567890  / 

REW{N0  5 
K*«D  ■ 0 

C*LL  DATE  (MONTH) 

1 READ  (INPUT, ISO)  IMAGE 
IF  (EOFdNPUT))  5.3 

3 IF  (MOd(«ARd.*0) .NE.O)  GO  TO  2 
IF  (.NOT. LIST)  GO  TO  2 
IF  (KARO. LQ. 0)  GO  TO  * 

WRITE  (6.110)  (K.  I * 1.8).  (I«  I ■ 1*8) 

WRITE  (6.120) 

1?0  FORMAT  (//2IX, .CONTINUED*) 

A WRITE  (6. SKIP) 

WRITE  (6.300)  MONTh 

300  FORMAT  (//ATX. .SUMMARY  OF  CARO  IMAGES  FOR  INPUT  DATA  DECK./60X.* (D 
1ATEj.,a9. *»•//) 

WRITE  (6.100)  (I.  t * 1.8).  <K.  I x l»8) 

100  FORMAT  (22X,»CARD,.13X,8(Il*9X)/23X,.NO.*.4X.8llO//21X.92(lH->/) 

2 K*Ro  * KARO  • I 
WRITE  (5.150)  IMAGE 

150  FORMAT  (8AlO> 

IF  (LIST)  WRITE  (6.200)  KARO,  IMAGE 
200  FORMAT  (22X.I3,*  ....*.8AI0) 

GO  TO  1 

5 ENDFILE  5 
REWIND  S 

IF  (KARO.EQ.O)  GO  TO  99 
IF  (.NOT. LIST)  GO  TO  99 
WRITE  (6.110)  (K,  I x 1,8).  (I,  I « 1.8) 

110  FORMAT  (/21x,92(lH-)//30X.Bll0/39X.8(I1.9x) ) 

90  RETURN 
end 


EDITOR 

EDITOR 

editor 

editor 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EOITOR 

EDITOR 

EDITOR 

EDITOR 

EDITOR 

EOITOR 

EDITOR 

EOITOR 

EOITOR 

EDITOR 

EOITOR 

EOITOR 

EDITOR 

EDITOR 

EDITOR 

EOITOR 

EOITOR 

EOITOR 

EOITOR 

EDITOR 

EDITOR 

EOITOR 

EDITOR 

EOITOR 

EDITOR 

EDITOR 

EOITOR 

EDITOR 

EDITOR 

EDITOR 

EOITOR 

EDITOR 

EDITOR 

EOITOR 
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SUBROUTINE  COVER  «TITLE.  NPAGE) 

DIMENSION  TiTLEO).  message 1 1 0 • 3 > 

INTEGER  blank*  TITLE 

COVER 

COVER 

COVER 

COVER 

...  cover 

2 

3 

A 

5 

6 

COVER 

7 

this  SUBROUTINE  WILL  GENERATE  NPAGE  SEQUENTIAL  TITLE  PAGES 

eor 

THE  COVER 

ft 

OUTpuT  PRINTOUT. 

COVER 

9 

COVER 

10 

...  cover 

11 

COVER 

12 

blank  » 1H 

COVER 

13 

N * 0 

COVER 

1 A 

DO  2 I ■ 1.3 

COVER 

15 

I r (TITLEU)  .EQ.BLANKI  GO  TO  2 

COVER 

16 

N * N*  1 

COVER 

17 

TltLElN)  * TITLEM) 

COVER 

1ft 

DECODE  U0.100.TITLECN) ) (MESSAGE (J.N>,  J ■ I. 10) 

COVER 

19 

FORMAT  (10A1) 

COVER 

?0 

continue 

cover 

21 

COVER 

22 

nSK ip  a 3 ♦ 6*(3-N> 

COVER 

23 

ENCODE  (IO.ISO.KONtROL)  nskip 

COVER 

2A 

FORMAT  (1H1,I2) 

COVER 

25 

NSKJP  > KONTROL 

COVER 

26 

COVER 

27 

00  | K * 1 .NPAGE 

COVER 

28 

J ■ 0 

COVER 

29 

KONTROL  « NSKIP 

COVER 

30 

IE  (J.EO.N)  go  TO  1 

COVER 

31 

J ■ JM 

cover 

32 

CALL  HEAOINX  (1HX.  KONTROL.  MESSAGE C 1 .J) > 

COVER 

33 

kontrol  * blank 

COVER 

3A 

GO  TO  3 

COVER 

35 

WHITE  <6. 200) 

COVER 

36 

COVER 

37 

format  <//// 

COVER 

38 

1/JBX.52H  ...............ft! 

1# 

COVER 

39 

2/39X.52M  • 

• 

COVER 

AO 

3/39x,52H  • 

• 

COVER 

A 1 

A/39X.52H  * THIS  CODE  WAS  DEVELOPED  BY 

• 

COVER 

A2 

5/39X.52H  • 

• 

COVER 

A3 

6/J9X.52H  • DR.  WILLIAM  B.  LaCINa 

• 

COVER 

AA 

7/39x,52H  • NORTHROP  RESEARCH  AND  TECHNOLOGY 

• 

COVER 

A5 

B/J9X.52H  • ONE  RESEARCH  PARK 

• 

COVER 

A6 

9/39X.52H  • PALOS  VERDES  PENINSULA.  CA  9027A 

• 

COVER 

A7 

S/39X.S2H  • TEL  * «213|  377-A811.  EXT.  322 

• 

COVER 

Aft 

I/39x.52H  • 

• 

COVER 

A9 

2/39x.52H  • 

• 

COVER 

50 

**) 

COVER 

51 

COVER 

52 

return 

COVER 

53 

eno 

COVER 

5A 
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9 j 


V., 

SlStJ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE  CALL  SEQUENCE  FOR  THIS  SUBROUTINE  IS  EQUIVALENT  To  THAT  SUPPLIED 
BY  T«E  CDC  CTBERNET  SYSTEM  (WITH  THE  SAME  NAME  I FOR  THE  GENERATION  OF 
BLOC*  HEAOlNGS.  HOWEVER.  THE  PRESENT  VERSION  HAS  TWO  ADDITIONAL  AD- 
VANTAGES « 

1>  THE  10 -BCD  CHARACTER  WORD  STORED  IN  THE  VECTOR  MESSAG£(I> 

(I  = 10)  IS  AUTOMATICALLY  centered  ON  THE  printed 

LINE*  ANo 

2>  THE  CARRIAGE  CONTROL  SYMBOL  »JPAGE*  CAN  ACCEPT  MORE  GENERAL 
SPECIFICATIONS  TO  CONTROL  THE  SPACING  OF  THE  PRINTEO  LINE. 
jPAf,E  CAN  HAVE  THE  USUAL  FORMAT  1HS  (WHERE  S « 0.  1,  2.  ♦. 

ETC)*  OR  IT  CAN  HAVE  A MORE  GENERAL  FORMAT  3HSNN.  WHERE  NN 

is  a two-digit  number,  after  the  page  control  s is  executed* 

TWO  LINES  ARE  AUTOMATICALLY  SPACEO*  FOLLOWED  BY  AN  ADDITIONAL 
NN  LINES.  THE  REMAINING  SEVEN  BITS  OF  *JPAGE*  ARE  IGNORED. 

unlike  the  cdc  subroutine,  the  plotting  symbol  »jsymb*  is  ignored, 
and  the  character  X is  always  used. 


DIMENSION  KAR(IO.SO).  F0RM(3),  MESSAGE(IO).  LETTER(SO),  NUM(IO). 
i image(IO).  kkisoO) 

INTEGER  blank 

EQUIVALENCE  (KAR.  KK) 

0*1  A LETTER  / 1HA*  1HB • 1HC*  lHD*  1HC»  1HF.  1HG.  lHH.  1HI.  lHJ. 

1 lHK.  1HL  * 1HM . 1HN.  IhO*  1HP.  IHO.  1HR.  lHS.  1MT.  1HU.  lHV.  lHW. 

2 lhx.  1 HY « 1 HZ . 1H1.  1H2.  1H3,  1H4,  1HS«  1H6.  1H7.  1HB.  1H9.  IHO. 

3 1H.,  1H-.  1H/,  1H*.  1 H t ♦ 1HS,  1H-.  1H(.  1H),  1H«,  1H»,  lHJ , iHl. 

4 1H  / 

OATa  (kK(I).  I s 1,150) 

5 / 10H  XXXXXXXX  , 10HXXXXXXXXXX.  3* 1 OHXX  XX. 

1 2* lOMxXXXXXXXXX.  3* 1 OHXX  XX.  10HXXXXXXXXX  . 10HXXXXXXXXXX. 

2 2*10HxX  XX.  2*10HXXXXXXXXX  . 2*l0HXX  XX.  lOHXXXXXXXXXX* 

3 10m XXxXXXXXX  . 10H  XXXXXXXX  , lOHXXXXXXXXXX.  1 OHXX  XX. 

4 <**2HXX*  10HXX  XX.  lOHXXXXXXXXXX.  10H  XXXXXXXX  . 9HX XXXXXXXX  * 

5 lOHXXXXXXXXXX,  6* 1 OHXX  XX.  lOHXXXXXXXXXX.  9HXXXXXXXXX. 

6 2M0HXXXXXXXXXX.  2*2HXX*  2»6HXXXXXX.  2#2HXX.  4* lOHXXXXXXXXXX. 

T 2*2HXX«2*GhXXXXXX,4*2hXX.9H  XXXXXXXX . 1 OHXXXXXXXXXX • 1 OhXX  XX. 


8 2hxx.?*lOHxX  XXX XX .2* 1 OHXX 


XX. lOHXXXXXXXXXX. 9H  XXXXXXXX* 


9 4*10HXX  XX*  2M0HXXXXXXXXXX.  4»10HXX 

S 6*ftH  XX,2»9H  XXXXXXXX *2*1  OH  XXXXxXX,4*BH 

1XX.«HXXXXXXXX.  TH  XXXXXX.  10HXX  XX*  9HXX 

2 SHXX  XX.  ShXXXXX*  6HXX  XX*  7HXX  XX,  BhXX  XX.  9hXX 

3 lOHXX  XX,  8«2HXX.  2*lOHXXXXXXXXXX»  10HXX  XX. 

4 10HXXX  XXX.  10HXXXX  XXXX,  2«l0HXX  XXXX  XX.  2* 1 OHXX 

5 9*10HxX  XX.  10HXXX  XX.  lOHXXxX  XX.  10HXX  XX 

6 2* 1 OHXX  XX  XX.  I OHXX  XX  XX.  lOHXX  XXXX.  10HXX 

7 1 OhXX  XX.  9H  XXXXXXXX*  lOHXXXXXXXXXX.  6»10HXX 


XX.  2*9H  XXXXXXXX. 
XX.  2*8HXX 
XX.  7HXX  XX* 
XX* 


XX  XX* 
XX. 
XXX. 
XX. 


HEAD 
HEAD 
HE  AO 
HEAD 
HEAD 
HEAD 
HEAD 
HE  AO 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAO 
HEAD 
HEAD 
HEAD 
HEAO 
HEAD 
HEAD 
HEAD 
HEAO 
HEAD 
HEAD 
HEAO 
HEAO 
HEAD 
HEAD 
HEAD 
HEAO 
HEAO 
HEAD 
HEAD 
HEAD 
HEAO 
HEAO 
HEAO 
HEAD 
HEAO 
HEAD 
HEAD 
HEAO 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAO 
HEAD 
HEAD 


INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 

INX 


3 

4 

5 
4 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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c 
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e IOhXXxXXXXxXX.  9H  xxxxxxxx  / 

OAT*  tKKin,  I > 151. 280 ) 

s / 9HXXXXXXXXX*  IOHXXXXXXXXXX.  2* 1 OHXX  XX  * 

1 IOhXXxXXXXxXX • 9HXXXXXXXXX » 4*2HXX,  9h  XXXXXXXX.  IOHXXXXXXXXXX. 

2 9*1QHXX  XX.  10HXX  XXX  XX.  lOHXX  XXXK.  9HXXXXXKXXX. 

3 10h  XxXXXX  XX.  9HXXXXXXXXX*  IOHXXXXXXXXXX*  2M0HXX  XX. 

4 IOHXXXXXXXXXX.  9HXXXXXXXXX.  7HXX  XX.  OHXX  XX.  9HXX  XX. 

5 10HXX  XX.  9H  XXXXXXXX*  IOHXXXXXXXXXX.  10HXX  XX.  2HXX» 

6 9HXXXXXXXXX.  10H  XXXXXXXXX.  10H  XX.  10HXX  XX. 

7 IOHXXXXXXXXXX.  9H  XXXXXXXX*  2*10HXXXXXXXXXX.  8#6H  XX. 

8 0* 1 OHXX  XX.  IOHXXXXXXXXXX.  9h  XXXXXXXX.  2*1 OHXX  XX. 

9 A* i oh  XX  XX  . 2*8H  XX  XX.  7H  XXXX.  6H  XX. 

S **10HXX  XX.  3*1 OHXX  XX  XX.  10HXX  XXXX  XX.  10H  XXX  XXX  • 

1 9H  XX  XX.  1 OHXX  XX*  9H  XX  XX.  8H  XX  XX.  7H  XXXX. 

2 6h  XX.  7H  XXXX.  8H  XX  XX*  9H  XX  XX.  3*10HXX  XX. 

3 9h  XX  XX*  BH  XX  XX.  7H  XXXX.  6«6H  XX.  IOHXXXXXXXXXX. 

4 9HXXXXXXXXX.  8H  XX.  7H  XX.  2*6H  XX.  5H  XX.  4H  XX. 

5 10h  XXXXXXXXX.  IOHXXXXXXXXXX,  6H  XX*  6H  XXXX,  6H  XX  XX, 

6 S*6H  XX,  2*8H  XXXXXX.  9H  XXXXXXXX,  IOHXXXXXXXXXX. 

7 10HXX  XX,  10H  XXX.  9H  XXX.  7H  XX,  SH  XX, 

8 4H  XXX*  2*10HXXXXXXXXXX  / 

DATA  <kK(1>,  I ■ 281.410) 

S f IOHXXXXXXXXXX.  9HXXXXXXXXX,  8H  XX.  7h  XXX. 

1 7p  XXXXX,  9H  XXXX,  10H  XXX,  10HXX  XXX.9MXXXXXXXXX, 

2 8p  XXXXXXX,  8H  XXX,  OH  XXXX,  8h  XX  XX*  SH  XX  XX. 

3 XX  XX,  2* IOHXXXXXXXXXX,  3*8H  XX,  2« 1 OHXXXXXXXXXX . 

4 2* 2HXX»  9HXXXXXXXXX,  IOHXXXXXXXXXX.  lOH  XX,  10HXX  XX, 

5 IOHXXXXXXXXXX.  2*9H  XXXXXXXX.  IOHXXXXXXXXXX.  10HXX  XX,  2HXX. 

6 9HXXXXXXXXX,  IOHXXXXXXXXXX*  2*10HXX  XX.  IOHXXXXXXXXXX. 

7 9h  XXXXXXXX.  2M0HXXXXXXXXXX.  9H  XXX,  7H  XXX,  6H  XXX, 

8 5h  XXX,  4H  XXX,  3*3HXXX,  9H  XXXXXXXX,  IOHXXXXXXXXXX, 

9 2*10HXX  XX.  2*9H  XXXXXXXX,  2*10HXX  XX.  IOHXXXXXXXXXX, 

% 2*9H  XXXXXXXX,  IOHXXXXXXXXXX,  2«l0HXX  XX,  IOHXXXXXXXXXX. 

| 10h  XXXXXXXXX,  10H  XX,  1 OHXX  XX,  IOHXXXXXXXXXX, 

2 9p  XXXXXXXX,  7H  XXXX.  9h  XXXXXXXX.  9H  XX  XX»4*10HXX  XX. 

3 9p  XX  XX.  9H  XXXXXXXX.  7h  XXXX.lH  »3»6H  XX,2»9H  XXXXXXXX. 

4 3*6H  XX,  S*1H  , 2*9H  XXXXXXXX.  5»1H  . 9H  XX.  8H  XX. 

5 XX.6H  XX.SH  XX.  4h  XX,  3h  XX.  2HXX.  2»1h  « 6H  XX, 

6 9p  XX  XX  XX,  8H  XXXXXX,  2*7h  XXXX.  8H  XXXXXX,  9H  XX  XX  XX, 

7 6H  XX.  3»1H  , 2*6H  XX,  2*1H  • 2*6H  XX,  2»1H  / 


DAT  A (KK(I>,  1 a 411,500) 

/ 6H  XX,  9h  XXXXXXXX,  10HXX  XX  XX,  6HXX  XX, 
9HXXXXXXXXX,  10H  XXXXXXXXX, lOH  XX  XX,  1 OHXX  XX  XX. 
9MXXXXXXXXX.6H  XX.  2*lH  . 2*9H  XXXXXXXX.  2*lH  , 2*9H  XXXXXXXX. 


2«1H 

Th 

6H 

2*4H 

SH 

5H 


7H 

XX.  5H 
XXX,  5H 
XX.  5H 
XX.  6h 
XX,  4H  XX. 
XXXX.  1 0* 1H 


XX.7H 
XX,  6H 
XX,  8H 
XX.  6H 
XX,  7H 
7H 
✓ 


XXX,  5h 
XXX.  7H 
XX,  7H 
XX.  7H 
XX,  2»8m 


XX, 


4*4H  XX. 
XX.  4»8H 
XX.  6H 
XX.  8H 

XX.  7H 


5H  XX.  6H 
XX.  7H 
XX,  SH  XX, 
XX,  4h  XX. 
XX.  6H 


XXXX*  8*5H  XX.  2*7H  XXXX.  8»7H 


XXX, 

XX, 


XX. 

XX. 


HSTmBOl  * 50 
PLANK  a 1H 


HEADINX 

59 

HEADINX 

40 

HEADINX 

41 

HEADINX 

42 

HEADINX 

43 

HEADINX 

44 

HEADINX 

45 

HEAOINX 

46 

HEADINX 

67 

HEADINX 

68 

HEADINX 

69 

HEADINX 

70 

HEAOINX 

71 

HEADINX 

72 

HEAOINX 

73 

HEADINX 

74 

HEAOINX 

75 

HEADINX 

76 

HEAOINX 

77 

HEADINX 

78 

HEAOINX 

79 

HEADINX 

80 

HEADINX 

81 

HEADINX 

82 

HEADINX 

83 

HEADINX 

84 

HEAOINX 

85 

HEAOINX 

86 

HEAOINX 

87 

HEAOINX 

88 

HEAOINX 

89 

HEADINX 

90 

HEADINX 

91 

HEAOINX 

92 

HEADINX 

93 

HEAOINX 

94 

HEADINX 

95 

HEAOINX 

96 

HEADINX 

97 

HEAOINX 

98 

HEADINX 

99 

HEAOINX 

100 

HEADINX 

101 

HEADINX 

102 

HEADINX 

103 

HEADINX 

1 04 

HEAOINX 

105 

HEADINX 

106 

HEAOINX 

107 

HEADINX 

108 

HEADINX 

109 

HEADINX 

no 

HEAOINX 

in 

HEAOINX 

112 

HEAOINX 

113 

HEADINX 

114 

HEADINX 

115 

109 


Ll  ■ L2  * 0 

HEAOINX 

lift 

DO  5 L ■ 1»10 

HEAOINX 

117 

If  ( MESSAGE  (U.HE.  BLANK)  GO  TO  6 

HEAD  I NX 

11" 

5 l>  • Cl  * 1 

HEAOINX 

119 

6 D°  7 I » 1*10 

HEAOINX 

120 

L * 11-1 

HEAOINX 

121 

If  (MEsSAGE(L) .ME. BLANK)  GO  TO  8 

HEAOINX 

122 

7 L2  ■ L2»  1 

HEAOINX 

123 

8 LB  » L|  • L2 

HEAOINX 

124 

1^  (LB.GE.l0)  Ll  • LB  ■ 0 

HEAOINX 

125 

Ll**l  « Ll  • 1 

HEAOINX 

126 

N«  a 10  - Lb 

HEAOINX 

127 

LB  * ( l3*LB)/2 

HEAOINX 

126 

nkpli  ■ NK  • Ll 

HEAOINX 

12R 

DECODE  ( 10* 102. JPAGE)  KSKIP 

HEAOINX 

130 

102  FORMAT  (1A.A2.7X) 

HEAOINX 

131 

]F  (KSkIP.EQ. BLANK)  GO  TO  9 

HEAOINX 

132 

ENCOOE  (10. 101. KONtROL)  JPAGE 

HEAOINX 

133 

101  FORMAT  (A3.7H(/)//lX> 

HEAOINX 

134 

G«  TO  10 

HEAOINX 

135 

9 ENCOOE  (10.103. KONTROL I JPAGE 

HEAOINX 

136 

103  FORMAT  (A1.9H//1X  ) 

HEAOINX 

137 

10  00  1 L « L1P1.NKPL1 

HEAOINX 

138 

DO  2 I ■ 1 .NSvMBOL 

HEAOINX 

139 

IF  (MESSAGE (L) .EO. LETTER (I) ) GO  TO  1 

HEAOINX 

UO 

2 CONTINUE 

HEAOINX 

141 

I » NSvMBOL 

HEAOINX 

142 

1 NUN(L!  * I 

HEAOINX 

143 

00  3 LINE  ■ 1,10 

HEAOINX 

144 

DO  A L a L1P1,  NKPLl 

HEAOINX 

145 

N ■ NUM (L ) 

HEAOINX 

146 

4 lN*GE<Ll  * KAR(LINE.N) 

HEAOINX 

U7 

ENCODE  (30.100.FORM)  KONTROL.  LB*  NK 

HEAOINX 

148 

100  FORMAT  (3H(1h.A10.i2.1hX.I2.9h(3X.A10) ) ) 

HEAOINX 

149 

WRITE  (6. FORM)  ( IMAGE (K),  K » LIPl,  NKpLl) 

HEAOINX 

150 

3 KONTROL  * 1H 

HEAOINX 

151 

return 

HEAOINX 

152 

eno 

HEAOINX 

153 

no 


<JOOOO<JUOOOOUOU<JOO<JUUOOOOO<JUO<J<JO<JOUO<J<JOO 


' 


c 

c 

c 


c 


PROGRAM  ELtCT  ( input, OUTPUT »TAPe5»TAPE6*0UTPUT,TAPE7» TAPES .TAPE9. 
1 TAPE  1 0s  INPUT ) 


this  code  performs  a numerical  solution  of  the  Boltzmann  trans- 
port EQUATION  for  the  electron  energy  distribution  in  a weakly 

IONjzEO  PLASMA  IN  THE  PRESENCE  OF  AN  ELECTRIC  FIELD.  MOMENTUM 
TRANSFER  (WITH  RECOIL) . INELASTIC  BINARY  E-NEUTRAL  PROCESSES  (WITH 
SOPeRELASTIc  COLLISIONS).  AND  ELECTRON-ELECTRON  SCATTERING  ARE  ALL 
INCLUDED.  WITH  CROSS  SECTIONS  PROVIDED  BY  AN  ARBITRARILY  LARGE  EX- 
TERNAL FILE  OF  OATA.  INPUT  PARAMETERS  ARE  GAS  MIXTURE,  TEMPERA- 
TURE. PRESSURE,  EXClTEO  STxTE  POPULATION  DENSITIES.  AND  A SEQUENCE 
Of  F/N  VALUES.  OUTPUT  CONSISTS  OF  TABLES  AND  PLOTS  OF  PLASMA  PA- 
RAMETERS. power  partitioning,  <vsig>  excitation  and  oe-excitation 
meters,  power  partitioning,  excitation  and  oe-excitation  <vsig> 
rates,  etc. 


THIS  C00E  WAS  DEVELOPED  BY 

DR.  WILLIAM  b.  lacina 

NORTHROP  RESEARCH  AND  TECHNOLOGY 

ONE  RESEARCH  PARK 

PALOS  VEROES  PENINSULA.  CA  9027A 

TEL:  (213)  377-A811.  EXT.  322 


COMPLETE  DOCUMENTATION  OF  THE  PRESENT  ANALYSIS  (INCLUDING  OISCuS- 
S«ON  OF  the  MATHEMATICAL  FORMULATION.  TECHNIQUES  OF  NUMERICAL  SO- 
LUIlON.  DESCRIPTION  OF  OF  SUBROUTINES.  AND  INSTRUCTION  FOR  USAGE) 

is  available  in  published  reports  by  w.  b.  lacina.  a comprehen- 
sive and  general  laser  kinetics  code  is  also  available,  ano  makes 
use  OF  the  same  subroutines  for  the  ELECTRON  kinetics  analysis. 


DIMENSION  0(1001,30).  QM 1 1 00 1 1 . QMOM ( 1001 .2) , AI100I.3).  F(IOOI), 

1 EV(IOOI).  G ( 100 1 ) , 0(1001).  POWER(30>,  Nl(30).  N2(30l.  P(2l.31). 

2 U ( 30 ) , NtL (30) , RATE (21 ,2.30),  VSIG(2,30),  PROCESS ( A, 31 ) , F I (S) , 

3 IDeNT(S),  NAME ( 5 ) « MASS (5) » GAS(lOO),  NO (100).  E(100l.  TITLE ( 3) . 

A YO (2) » DY (2) , TABLE ( 2 1 ,N) , FORM(IS).  KOOE(B).  HEADI9) , IMAGE(GO). 

5 E0vERN(21>.  EN ( 2 1 ) . I OUT (10),  OUT(IO),  KAPT(S).  LABEL (5,2) « 

6 *INET|C(6»50) » NUMBER  I 30 ) , GMOLE<100),  LINE(2s0),  SdOOl) 

REAL  no.  kb,  kte.  mu,  MASS,  NMOL.  NI,  N2,  ne.  molwt,  ionize 
INTEGER  GAS,  TYPE*  TITLE.  TODAY.  LH5»  RHS 

LOGICAL  CUNVRGE » OUl.  FATAL,  list,  error,  stop.  test.  MISSING, 

1 OUTsIDL,  REJECT,  EXPAND,  SEARCH.  LIBRARY 

equivalence  («,om) 


ELECT 

2 

ELECT 

3 

ELECT 

A 

ELECT 

5 

ELECT 

6 

ELECT 

7 

ELECT 

a 

ELECT 

9 

ELECT 

10 

ELECT 

li 

elect 

12 

ELECT 

13 

ELECT 

1 A 

ELECT 

IS 

ELECT 

16 

ELECT 

17 

ELECT 

IB 

ELECT 

19 

ELECT 

20 

ELECT 

21 

ELECT 

22 

ELECT 

23 

ELECT 

2A 

ELECT 

25 

ELECT 

26 

ELECT 

27 

ELECT 

28 

ELECT 

29 

ELECT 

30 

ELECT 

31 

ELECT 

12 

ELECT 

33 

ELECT 

3A 

ELECT 

35 

ELECT 

36 

ELECT 

37 

ELECT 

38 

ELECT 

39 

ELECT 

AO 

ELECT 

At 

ELECT 

A2 

ELECT 

A3 

ELECT 

44 

ELECT 

AS 

ELECT 

A6 

ELECT 

AT 

ELECT 

A8 

ELECT 

49 

ELECT 

SO 

ELECT 

51 

ELECT 

5? 

ELECT 

53 

ELECT 

S4 

ELECT 

55 

ELECT 

56 

ELECT 

57 

ELECT 

58 

111 

: 


NAKFLIST  / CONTROL  / MESH.  IOUT,  FATAL,  EMAX.  ITMAX,  TMAX.  EPS. 
TE.  IOCG.  PCT,  SEARCH 


NAMELIST  / PAR AM  / TMOL.  PTOT,  ATM.  EOVERM 
NAMELIST  / SOURCE  / ONEDT.  MEAN,  CREATE*  UA,  UH.  S 


ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 


DAT a HEAD  / 6HE/NT0T,  10H<U»«  JTE/2.  9h€K  « D/MU.  10MTE  (DEG  K). 

9hV0  ICM/Sl,  10HMU.CM2/V/S,  9m0.  CM2/S.  9HP/NE/NM0L . 
9HJ/NE*E*VD  / 


DATA  TITLE.  KAPT  / BHELECTRON,  SKA INET ICS,  AH AH ALTS  IS,  5*1H  / 


data  input  sequence  — elect 

ELECT 

ELECT 

IOUT (10)  IS  A VECTOR  OF  OUTPUT  OPTIONS  — OPTION  l IS  SUP-  ELECT 

PRESSED  IF  IOUTCI)  * 0,  OTHERWISE  PHOVIDEO  — ELECT 

ELECT 

IOUT 1 1)  — INDIVIDUAL  SUMMARY  OF  PLASMA  PARAMETERS  FOR  ELECT 

EACH  E/N  VALUE  ELECT 

IOUT (2)  — TABLE  OF  ELECTRON  DISTRIBUTION  FUNCTION  FOM  ELECT 

EACH  VALUE  OF  E/N  ELECT 

iout i 3)  — plot  of  electron  distribution  function  for  elect 

EACH  value  of  E/N  ELECT 

I OUT (4)  — PLOT  of  F(U)/FB0LT2(U,TE>  for  each  E/N  elect 

IOUT (5)  — SUMMARY  OF  PLASMA  PARAMETERS.  COLLISION  ELECT 

RATES.  ANO  POWER  BALANCF  FOR  EACH  E/N  ELECT 

10uT(b>  — TABULAR  SUMMARY  OF  INPUT  CROSS  SECTION  DATA  ELECT 

IOUT (7)  — PLOTS  OF  INPUT  CROSS  SECTIONS  (I0UT(6I  MUST  ELECT 

BE  SIMULTANEOUSLY  SPECIFIEOI  ELECT 

ioutib)  — tabular  summary  of  plasma  parameters  as  a elect 

FUNCTION  of  E/N  FOR  The  given  GAS  MIXTURE!  ELECT 
TABLES  of  POWER  PARTITIONING  as  a FUNCTION  of  elect 
e/n  for  elastic  anu  inelastic  processes.  elect 

i out <9)  — plots  of  plasma  parameters  as  a function  of  elect 

E/N  FoR  A GIVEN  GAS  MIXTURE  (IF  AT  LEAST  5 ELECT 

CASES  HAVF  BEFN  COMPUTED)  ELECT 

IOUT (10)—  LOG  PLOTS  OF  FORWaRO  (ANO  REVERSE)  ELECTRON  ELECT 
RATES  AS  A FUNCTION  OF  E/N.  FOR  EACH  OF  THE  ELECT 
INELASTIC  COLLISION  PROCESSES  INCLUOED  ELECT 

ELECT 

MISCELLANEOUS  PARAMETERS  OEFINEO  — ELECT 

ELECT 

emax  — maximum  electron  fneRgt  iev)  elect 

MESH  — NUMBER  OF  INTFRVA) S INTO  WHICH  THE  EnFRGV  RANGE  ELECT 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Is  OIVIOCO.  (MESH  < 1000  IS  INSUREO  BY  PROGRAM.) 

Even  — electric  field  cvolt/ch) 

EOVERN  — E/N  (l.E-16  VOLT  CM2) 

Te  — INITIAL  GUESS  FOR  ELECTRON  TEMPERATURE  <OEG  K) 

ITMAX  — MAXIMUM  NUMBER  OF  ITERATIONS  PERMITTED. 

tmax  — maximum  cp  time  for  obtaining  convergence. 

EPS  — convergence  criterion  for  maximum  relative 

change  for  all  values  of  the  electron  distribu- 
tion FUNCTION  BETWEEN  SUCCESSIVE  iterations, 
ioeg  — DEGREE  of  INTERPOLATION  for  cross  sections  to 
GENERATE  UNIFORM  grid  of  VALUES  FROM  raw  oata. 

INPUT  CONSISTS  OF  THE  FOLLOWING  — 

A)  DECK  OF  ELECTRON  CROSS  SECTION  PACKAGES  (ARBITRARILY  MANY) 
FOR  UPDATE  OF  ELECTRON  CROSS  SECTION  DATA  FILE.  TERMINATED 
BY  AN  EOF  (7/8/9)  CARD. 

B)  LIST  OF  *UP  TO  LIMIT)  ELECTRON  KINETIC  REACTIONS.  TERMI- 
NATED BY  AN  EOF  (7/8/9)  CARD.  THESE  REACTIONS  FORM  THE 

BASIS  FOR  *ll  subsequent  electron  kinetics  calculations. 
HOWEVER.  IF  NO  REACTIONS  ARE  ENTERED  IN  THIS  FILE.  THE  PRO- 
GRAM WILL  SEARCH  THE  EXTERNAL  ELECTRON  CROSS  SECTION  FILE 
ANO  RETAIL  ALL  RELEVANT  REACTIONS  (I.E.  WHICH  CONTAIN  GASES 
IM  The  SPECIFIED  MIXTURE).  REGARDLESS  OF  WHERE  THE  KINETIC 

scheme  is  founo.  only  the  first  nkmax  legal  reactions  are 
RETAINEO. 

THESE  ARE  FOLLOWEO  BY  ARBITRARILY  MANY  OF  THE  FOLLOWING  PACKAGES. 
EACH  OF  WHICH  IS  TERMINATED  BY  AN  EOF  (7/8/9)  CARD  — 

1)  SCUNTROL  ...  S 

2)  S PARAM  ...  S 

3)  PACKAGE  OF  SPECIES  CARDS.  CONTAINING!  NAME.  FRACTION  PO. 
ENERGY  (EV).  MOLECULAR  WEIGHT  (GM/MOLE).  (A10.3EI0.3I 

THE  FRACTIONAL  GAS  COMPOSITION  !S  DEFINED  BY  THE  VALUES  ENTERED 
FOR  PO  ON  THE  SPECIES  CARDS.  IF  ThE  TOTAL  OF  THESE  VALUES  IS  MORE 
THAN  1.0E  0«,  IT  IS  ASSUMED  THAT  THE  PO  VALUES  REPRESENT  POPULA- 
TION DENSITIES  (CM-3).  ANO  ANr  VALUES  ENTERED  FOR  PTOT  OR  ATM  ARE 

ignoreo.  if  the  total  is  less  than  i.oe  os.  it  is  assumed  that 

THE  PO  VALUES  REPRESENT  PARTIAL  PRESSURES  (IN  TORH).  UNLESS  EITHER 
P tot  OR  ATM  is  specified  ON  the  SPaRAM  ...s  CARD.  IN  WHICH  case 
they  REPRESENT  ONLY  FRACTIONAL  CONCENTRATIONS.  IF  BOTH  PTOT  (IN 
TORR)  ANO  ATM  (IN  ATMOSPHERES)  IS  SPECIFIED.  THE  VALUE  FOR  PTOT 
IS  ACCEPTED.  ANO  ATM  IS  IGNORED. 


C*LL  DATE  (TODAY) 

DIMENSION  DECLARATORS  — 
MGRIO  * 1000 

NMA*  a s 
NKMAX  a 30 
LIMIT  * 50 
MAX  » 100 


ELECT 

116 

ELECT 

117 

ELECT 

118 

ELECT 

119 

ELECT 

120 

ELECT 

121 

ELECT 

1?2 

ELECT 

123 

ELECT 

126 

ELECT 

125 

ELECT 

126 

ELECT 

127 

ELECT 

128 

ELECT 

129 

ELECT 

130 

ELECT 

131 

ELECT 

132 

ELECT 

133 

ELECT 

13* 

ELECT 

135 

elect 

136 

ELECT 

137 

ELECT 

138 

ELECT 

139 

ELECT 

1*0 

elect 

1*1 

ELECT 

1*2 

ELECT 

1*3 

ELECT 

1** 

ELECT 

1*5 

ELECT 

1*6 

ELECT 

1*7 

ELECT 

1*8 

ELECT 

1*9 

ELECT 

150 

ELECT 

151 

ELECT 

152 

ELECT 

153 

ELECT 

15* 

ELECT 

155 

ELECT 

156 

ELECT 

157 

ELECT 

158 

ELECT 

159 

ELECT 

160 

ELECT 

161 

ELECT 

162 

ELECT 

163 

ELECT 

16* 

ELECT 

165 

ELECT 

166 

ELECT 

167 

ELECT 

168 

ELECT 

169 

ELECT 

170 

ELECT 

171 

ELECT 

172 

113 


non  n n n r>  n n n nn  n n non  n nnc>  o on  no  oo  on 


scratch  file  FOR  e-  update  — 
nTAre  > 7 


input  e-  cross  SECTION  tape  file  — 

INPUT  * 8 

remind  input 

FILE  OF  UPOATED  E-  CROSS  SECTIONS  — 

NOATA  « 9 

INPUT  C*RO  FILE  — 
k*Rds  * 10 

kb  ■ kb/ee 

list  ■ .TRUE. 

call  editor  ikards.  list) 

call  UPDATE  (INPUT,  NOaTA.  NT  APE • .FALSE. * TOOATl 

call  cover  (title. 2> 


ENTER  an  INITIAL  REACTION  SCHEME,  if  desired  — 


unless  SEARCH  • TRUE  IS  SPECIFIED  ON  SCONTROL...S  CARD  BELOW*  IT 
IS  ASSUNEO  THAT  USER  WISHES  to  RESTRICT  CALCULATIONS  TO  NO  MORE 
THAN  The  FOLLOWING  PROCESSES.  if  none  are  entered,  program  will 
AUTOMATICALLY  SEARCH  The  EXTERNAL  ELECTRON  CROSS  SECTION  file  ano 
USE  ALL  RELEVANT  KINETIC  PROCESSES  INVOLVING  SPECIES  FOUNO  IN  THE 

MIXTURE  specified, 
call  editor  (karos. list) 

00  28  N ■ I .LIMIT 
DO  ?B  I ■ 1.6 
28  k!NETIC«I»N)  » 1H 
N ■ 0 

LIBRARY  » .TRUE. 

S3  REAo  (5.2SO)  KODE 
IF  (EOF (51 1 50.33 
33  IF  (N.EO. LIMIT)  GO  TO  53 
N • N»1 

LIBRARY  » .FALSE. 

D«  51  I ■ 1.6 
51  KlNETIcU.N)  . KOOE(l> 

GO  TO  S3 

all  kinetic  reactions  have  been  stored. 


reao  in  package  of  input  parameters  for  execution  of  analysis  — 


elect 

ELECT 

elect 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 
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ELECT 
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ELECT 

ELECT 
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173 

174 

175 

176 

177 
1TB 
179 
IftO 
161 
182 

183 

184 
165 
186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 


on  n on  no  nn  non  on 


e***and  « .false. 

pci  a 10. 

PERCENT  a PCT  ♦ 1. 

THAx  a 50. 
itnax  a 100 
EPS  a .001 
IOEg  » 2 
NPlS  « 21 
0«  1 1 • 1«10 
3 lOUTfll  * * 

DO  31  N ■ l.NMAX 

NAMriN)  a 1h 

IOENT(N)  • 0 
31  rI<NI  a MASS (N)  a 0. 

0°  13  N ■ 1 .MAX 
G*0LE«N»  • 0. 

GAS(N)  a 1H 
13  E»N|  • MO«N|  a 0. 

DO  18  N » l.NPTS 
18  eOVE«N(N1  * -1.0 
IE  a 0. 

SEARCH  ■ fatal  « .FALSE. 


REAo  (5. CONTROL) 


ENTER  EXPERIMENTAL  CONDITIONS  — 
IF  (EOF  IS) ) 99,72 
72  0«  *2  I » 1.10 
*2  0U!<II  ■ IOUTIP.NE.O 
TNOl  a 300. 
pTOT  a ATM  a o. 


REAq  (S.PAHAM) 


IF  (EOF  15) ) 99,71 

71  IF  (PTOT.EU.0.)  PTOT  a 760.*ATM 
IF  (TNOL.LE.0.)  TMoL  a 300. 

IF  (TE.EO.O.)  TE  « TMOL 
KTE  - KB*TE 

IF  (MESM.OT.MGRIO)  MESH  * MGR  1 0 
M » MESH  » 1 

SEARCH  ■ SEARCH. OR. LIBRARY 

NE  a IONIZE  a 0. 

NTYPE  a 0 

ENTER  EXTERNAL  DEPOSITION  SOURCE  DATA 
ONEOT  a BEAM  a CREATE  a 0. 

UA  a UB  • 0, 


READ  (5. SOURCE) 
C 
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2*0 

ELECT 

2*1 

ELECT 

2*2 

ELECT 

2*3 

elect 

2** 

elect 

2*5 

elect 

2*6 

elect 

2*7 

elect 

2*8 

ELECT 
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262 

elect 

263 

elect 
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273 

elect 

27* 

ELECT 

275 

ELECT 

276 

elect 

277 

ELECT 

278 

elect 

279 

elect 

280 

elect 

281 

elect 

282 

elect 

263 

elect 

28* 

elect 

285 

ELECT 

286 
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c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 


c 


c 


TEST  ■ INGAS. NF  D.ANO.IPMAX.LT. 

I.0E-04«FI(l)) 

ELECT 

344 

If  (TEST)  GO  TG  66 

ELECT 

345 

NGAs  * NCAS  » 1 

ELECT 

346 

IDEnTInGASI  ■ NG 

ELECT 

347 

NANE(NgAS)  * GAS (Not 

ELECT 

348 

NASsINgAS)  * GMOLE(NG) 

ELECT 

349 

FKnGAS)  * NO ( NG 1 

ELECT 

350 

If  (NGAS.LT.NMAX)  GO  TO  68 

elect 

351 

ELECT 

352 

66 

NMOl  * PRESS 

ELECT 

353 

DO  67  I * l.NGAS 

ELECT 

354 

67 

rUn  ■ fi  (p/press 

ELECT 

355 

I F (NMOL.GT.I.OE  08)  GO  TO  54 

ELECT 

356 

|F  (PTOT.EU.O.)  ptot  ■ PRESS 

ELECT 

357 

NHOl  ■ 0.96SE  19*PT0T/TH0L 

ELECT 

358 

fr*ct  ■ NMOl/PRESS 

ELECT 

359 

DO  9 I « 1 *NT YPE 

ELECT 

360 

9 

NO«I>  > NO ( 1 ) »fRact 

ELECT 

361 

56 

IF  (NE.LE.O.)  nE  * IONIZE’NMOl 

elect 

362 

nPI  * NTYPE*1 

elect 

363 

G*S(NPl)  * 4HEC) 

elect 

364 

ECNPD  • 0. 

elect 

365 

FOUNT  » NP1 

ELECT 

366 

DO  7 N * 1»NKNAX 

elect 

367 

7 

U<N)  « N1 IN)  * N2<N>  » 0. 

ELECT 

368 

ELECT 

369 

N * NK  « 0 

ELECT 

370 

ELECT 

371 

select,  FROM  THE  input  reaction 

oueue*  all 

(LEGAL)  REACTIONS  WHICH 

1 

ELECT 

373 

INVOLVE  SPECIES  WHICH  HAVE  BEEN 

ENTERED  — 

elect 

FI  Frr 

374 

ELECT 

376 

35 

IF  (SEARCH)  GO  TO  70 

ELECT 

377 

IF  (N.EO. LIMIT)  GO  TO  5 

ELECT 

378 

N “ N»1 

ELECT 

379 

DECODE  (60,260, KINETIC(l.N) > IMAGE 

ELECT 

380 

G®  TO  6 1 

ELECT 

381 

ELECT 

FI  Frr 

382 

search  the  external  electron  cross  SECTION 

FILE 

AND  RETAIN  ALL 

ELECT 

384 

RELEVANT  REACTIONS  (UP  TO  NKMAXI 

for  the  input 

GAS  MIXTURE  — 

ELECT 

3rS 

FI  FTT 

ELECT 

387 

70 

rEAq  (nOATA,260)  (IMAGEIL),  L * 

1*40) 

ELECT 

388 

IF  (EOFINOATA))  5,63 

ELECT 

389 

63 

N * NK.l 

ELECT 

390 

ELECT 

391 

DUMP  numerical  data  — 

ELECT 

392 

READ  (nDATA) 

ELECT 

393 

59 

read  (N0ATA,2S0)  KOBE 

ELECT 

394 

IF  (KODE(l).EO.lH  .AND.KODEIZ) .E0.1H  ) GO 

TO  61 

ELECT 

395 

G°  TO  59 

ELECT 

396 

ELECT 

397 

61 

IF  (NK.EO. NKMAXI  GO  TO  5 

ELECT 

398 

call  dekool  (GAS,  image*  lhs,  rhs*  label. 

I OUT, 

10,  KOUNT.  60) 

ELECT 

399 

recall  that  kount  is  automat icallt  upoated 

UPON 

RETURN  FROM  DEKOOE 

ELECT 

400 

117 
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ELECT 

401 

ELIMINATE  MOMENTUM  TRANSFER  processes  — 

ELECT 

402 

IF  (LHS.EO.RHSl  GO  TO  35 

ELECT 

*03 

ELECT 

404 

IF  REACTION  contains  NONE  of  The  species  entered,  reject  it  — 

ELECT 

405 

ELECT 

406 

00  55  L * 1*5 

ELECT 

407 

I » LABEL (L , 1 ) 

ELECT 

408 

IF  (I.LE.O)  GO  TO  58 

elect 

409 

IF  (I.LE.NTYPE!  GO  TO  56 

ELECT 

410 

58 

I * LABEL (L, 2) 

ELECT 

411 

IF  tl.Lt.O)  GO  TO  55 

ELECT 

412 

IF  (I.LE.NTYPEI  GO  TO  56 

ELECT 

M3 

55 

continue 

ELECT 

414 

G«  TO  35 

ELECT 

415 

ELECT 

416 

56 

NL  a NR  * 0 

ELECT 

417 

U*  * 0. 

ELECT 

*18 

Ll  » L2  ■ 0 

ELECT 

4\9 

level  = 0 

ELECT 

420 

DO  48  L * 1*5 

elect 

421 

I * LABEL (L,l) 

ELECT 

422 

IF  (I.fO.O)  GO  TO  43 

ELECT 

423 

UK  = UK  - Ed) 

ELECT 

424 

IF  (I.NE.NPI)  level  * I 

ELECT 

425 

48 

IF  (I.EO.NPl)  NL  > nl  * 1 

ELECT 

426 

43 

IF  (NL.EQ.1.AND.L.EQ.3)  Ll  ■ LEVEL 

ELECT 

427 

level  = 0 

ELECT 

428 

Q0  49  L ■ 1*5 

ELECT 

429 

I * LABEL «L, 2) 

ELECT 

430 

IF  (I.EO.OI  GO  TO  38 

ELECT 

431 

l)K  x UK  ♦ E ( I ) 

ELECT 

432 

IF  d.NE.NPl)  LEVEL  » 1 

ELECT 

433 

49 

IF  (I.EO.NPl)  NR  * NR  ♦ I 

ELECT 

434 

38 

IF  (NR.EO.l .AN0.L.E0.3)  L2  s LEVEL 

ELECT 

435 

IF  (U.L2.EO.O)  GO  TO  35 

ELECT 

436 

ELECT 

437 

NK  x NK  * 1 

ELECT 

438 

IF  (Ll.NE.O)  NKNK)  * NO(Ll) 

ELECT 

439 

IF  (L2.NE.0)  N2(NK)  » N0(L2> 

ELECT 

440 

IF  (Nl (NK) *N2(NK) .NE.O.)  GO  TO  47 

ELECT 

441 

NK  x NK-1 

ELECT 

442 

GO  TO  35 

ELECT 

443 

47 

U<Nk>  x UK 

ELECT 

444 

NEL(NK)  = nr  - NL 

ELECT 

445 

ENCODE  (40*260. PROCESS!!. NK) > (IM*GE(L)*  L « 1.40) 

ELECT 

446 

NUMBER (NK)  x N 

ELECT 

447 

ENCODE  (60*260. KINETIC(I.N))  (IMaGE(L),  L x 1,60) 

ELECT 

448 

GO  TO  35 

ELECT 

449 

ELECT 

450 

5 

NKPl  x NK ♦ I 

ELECT 

451 

REMIND  NOATa 

ELECT 

452 

ENCODE  (40* 320. PROCESS (l.NKPI)) 

ELECT 

453 

ELECT 

454 

IF  (.NOT. EXPAND)  GO  TO  22 

ELECT 

455 

ELECT 
— ELECT 

456 

457 
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ir  THE  80LT2MANN  ANALYSIS  BELOW  010  NOT  CONVERGE*  CONTROL  RETURNS  ELECT  4S8 

TO  THIS  POINT  TO  EXPAND  THE  ELECTRON  ENERGY  RANGE  — ELECT  459 

— ...... ............ — ELECT  460 

ELECT  461 

40  Ip  (EMAX.GE.S.)  go  TO  23  ELECT  462 

ENA*  » EMAX  ♦ EMAX  ELECT  463 

IE  (EMAX.GT.5.1  EMAX  ■ S.  ELECT  464 

GO  TO  2?  ELECT  465 

23  Em*X  « EMAX  ♦ 5.0  ELECT  466 

27  IE  (EMAX.GT.25.)  Go  TO  50  ELECT  467 

ELECT  468 

22  E°  » 0.  ELECT  469 

OE  a EMAX/MESH  ELECT  470 

NX  a UA/OEM  ELECT  471 

Nb  a UB/OEM  ELECT  472 

IE  ( (UA.NE.U8) . ANO. (NA.EQ.NB) ) NB  ■ NA.l  ELECT  473 

DU  a «NB-NA)*OE  ELECT  474 

Si  a 0.  ELECT  475 

IE  (DU.GT.O.)  SI  ■ 1,/OU  ELECT  476 

DO  29  I • l.M  ELECT  477 

OMOhiI.I)  - 0M0MII.2)  a 0.  ELECT  478 

EV(|»  a EO  ELECT  479 

EO  a EO  * OE  ELECT  4*0 

Sdl  a 0.  ELECT  481 

IE  (I.lT.NA.oR.I.GT.N B)  GO  TO  29  ELECT  482 

S * 1 1 ■ SI  ELECT  483 

29  OM«n  a EVIII«S(1>  ELECT  484 

BEAM  a BEAM*DU*SI  ELECT  485 

ELECT  486 

plot  source  function  s«u»  for  external  deposition  — elect  487 

IE  (BEAM. EO. 0.1  GO  TO  45  ELECT  488 

CALL  SIMPSON  (QM,  MESH/2.  OE.  DEPOSIT!  ELECT  489 

DEPOSIT  a 1.602E-I9*BEAM*OEPOSIT  ELECT  490 

WRITE  (6.3601  BEAM,  DEPOSIT  ELECT  491 

y0«1)  a DY ( | ) a 0.  ELECT  492 

c*ll  plot  u,  m.  i,  s.  yo.  oy.  ev.  o..  o..  .true.,  .true.,  .true.,  elect  493 

1 .true.,  .true.,  title.  1.  o»  elect  494 

ELECT  495 

WRITE  (6.3701  TODAY  ELECT  496 

ELECT  497 

— ELECT  498 

PROCESS  the  ELECTRON  CROSS  SECTION  ARRAYS  — ELECT  499 

ELECT  500 

ELECT  501 

45  K ■ 0 ELECT  502 

j a i ELECT  503 

ERROR  a .FALSE.  ELECT  504 

0°  57  N ■ 1 <NK  ELECT  505 

I • NUMBER  IN)  ELECT  506 

OECOOE  (60.260. KINETIC(1. I))  IMAGE  ELECT  507 

C*Ll  OEKOUE  (GAS.  IMAGE.  LhS.  HHS.  LABEL.  IOUT.  10.  MOUNT.  60)  ELECT  508 

ELECT  509 

PROCESS  THE  NTH  INELASTIC  ELECTRON  CROSS  SECTION  — ELECT  510 

ELECT  511 

CALL  PLASMA  (NDATA,  MGRIDM.  MFSH.  LHS.  HHS.  PROCESS*  EV*  F.  G.  ELECT  S|2 

1 0(1. N).  UTh.  UN.  MOUNT.  GAS,  MISSING.  REJECT.  OUTSIDE.  IOEG.  ELECT  513 

2 OUT (6))  ELECT  Sl4 
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STOP  » MISSIN6. OR. REJECT. OR. OUTSIDE 
IF  I. NOT. STOP!  60  TO  32 
IF  ( J.OT .231 1 60  TO  57 
ENCODE  (50.360.LINE(J)I 
J ■ J.S 
K ■ K*l 

ENCOOE  <50*1 1 1 »L 1NE ( Jl I K,  (PROCESS(L.N) , L a 1.41 
J a J.S 

IF  (MISStNOt  ENCOOE  (50. I I5.LINE < Jl I 
IF  (MISSIN6I  J ■ J*5 

IF  (OUTSIOEI  ENCOOE  (50, 1 16, L INC « Jll  EMAX 
IF  (OUTSIOEI  J a J*5 

IF  (REJECTl  ENCOOE  (SO. 1 17.L1NE ( Jl I EMAX 

IF  (REJECT)  J a J»5 

IF  ( J.LE.22SI  60  TO  57 

ENCOOE  ( 100 *330 .LINE (Jll 

J a J*10 

60  TO  57 

32  DO  24  L ■ >.M 

?4  Q (L ,NI  • EV(Ll*0(L,NI 

57  EhrOR  a ERROR. OR. STOP 

PROCESS  THE  MOMENTUM  TRANSFER  CROSS  SECTIONS  — 

TMOM  ■ 2./1S37. 

00  17  I ■ 1.N6AS 

MISSIN6  ■ REJECT  ■ OUTSIDE  ■ .FALSE. 

ENCOOE  (40, 1 1 3.KAPTI  NAME U I 
10  ■ IqENT (II 

101  a ]D  * NPi 

1 02  a ) 0*10  * NP1*NP1 
ENCOOE  (10.U4.LHSl  101,  102 
RMS  • LMS 

c*ll  plasma  (noata.  morio.i.  mesh.  lhs.  Rhs.  kapt,  ev.  f,  c,  om. 
I UlH.  UM.  MOUNT.  6 AS.  MISSIN6.  REJECT.  OUTSIDE*  I0E6*  OUT (61  I 

STOP  a MISSIN6. OR. REJECT. OR. OUTSIDE. OR. (MASS ( I I.LE. 0.1. OR. 

1 (UM.LT.EMAXI 

ir  (.NOT. STOP  I 60  TO  36 
IF  (J.OT. 221)  00  TO  17 
ENCODE  (50 » 340. L INE ( Jl I 
J ■ J.S 
K « K»1 

ENCOOE  (50.111 «L INE ( Jl I K,  (KAPT(LI.  L a 1,4) 

J a J.S 

IF  (MlSSlNO)  ENCOOE  (50. 1 15. L INe ( J> I 
IF  (MlSSlNd  J a J»5 

IF  (OUISIDEI  ENCOOE  (SO, 1 16, LINE (Jl I EMAX 
IF  (OUTSIOEI  J ■ J»5 

IF  (REJECT I ENCODE  (50. 1 17. L INE ( Jl I EMAX 
IF  (REJECT)  J a J.S 

IF  (UM.LT.EMAXI  ENCOOE  (SO, 1 1S«L INE ( Jl I EMAX 
|F  (UM.LT.EMAXI  J • J»5 

IF  (MASS(I).LE.O.I  ENCODE  (SO, 1|9, LINE (Jll 


ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 
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ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

elect 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 
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elect 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 

ELECT 
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IF  (MASS(I) .LE.O.)  J ■ J»5 
IF  (J.LE.225)  00  TO  17 
ENC00E  < 100, 330. CINE 1 J)  > 

J ■ J*10 
GO  TO  IT 


CONsTRljCT  TWO  MOMENTUM  TRANSFER  FUNCTIONS  WHICH  OCCUR  tN  THE 
BOLTZMANN  EQUATION  — 


36  FR*CT  a FI  * Z > 

00  44  L * 1«M 
F«  « FRACT*0MIL» 
OMOm(L.I)  ■ OMOM(L.l) 
44  QNOm!L«2J  * OMOMCL.2) 

17  ERROR  a ERROR. OR. STOP 


FQ 

FQ/HASS ( 1 1 


GENERATE  SUMMARY  OF  WARNING  DIAGNOSTICS*  IF  ANY  — 

J ■ J-I 

IF  (J.gT.O)  WRITE  16*1121  (LINE(L).  L * l.JI 

00  46  L * 1»H 
X ■ EV(LI 
XSO  a TW0M*k** 

STOP  * OMOM(L. 1 1 .EO.O. 

IE  (STOP)  GO  TO  8 

A'L.l)  a X/NMOL/OHOM (L » I ) 

46  A<*-.2|  a XSq*NMOL*QNOM<L*2) 

XBAr  « DE/2. 

00  41  I * 1 .MESH 

CALL  InTEHP  (2,  XBAR*  OMOMlI.ltt  EV«  A(l.l),  1,  Ml 
CALL  InTERP  12*  XBaR*  QMOM (1.2).  EV*  All. 2).  1.  M) 

41  XBAr  a XBAR  ♦ OE 

QMqMIM.I)  a QMOM (Mesh. 1) 

QMOM  <M,2)  a QMOM (MeSH.2) 

8 ERROR  a ERROR. OR. STOP 
FATAL  a EATAL.ANO. ERROR 
IF  (STOP»  WRITE  (6.350) 

IF  (EATAd  GO  TO  SO 
EXRON  a EXP(-OEZKTe) 

F«  » 1. 

DO  37  I ■ UN 
F«I)  ■ EB 
37  FB  a FB'EXPON 

ENCODE  (40*500*KAPT> 

prohibit  further  plots  or  tabulations  of  e-  cross  section  data- 


ELECT 

S72 

ELECT 

573 

ELECT 

574 

ELECT 

575 

ELECT 

576 

ELECT 

577 

ELECT 

578 

ELECT 

579 

ELECT 

5rO 

ELECT 

581 

ELECT 

582 

ELECT 

583 

ELECT 

584 

ELECT 

585 

ELECT 

586 

ELECT 

587 

ELECT 

588 

ELECT 

589 

ELECT 

590 

ELECT 

591 

ELECT 

592 

elect 

593 

ELECT 

594 

ELECT 

595 

ELECT 

596 

ELECT 

597 

ELECT 

598 

ELECT 

599 

ELECT 

600 

ELECT 

601 

ELECT 

602 

ELECT 

603 

ELECT 

604 

ELECT 

605 

ELECT 

606 

ELECT 

607 

ELECT 

608 

ELECT 

609 

ELECT 

610 

ELECT 

611 

ELECT 

6)2 

ELECT 

613 

ELECT 

614 

ELECT 

615 

ELECT 

616 

ELECT 

617 

ELECT 

618 

ELECT 

619 

ELECT 

620 

ELECT 

621 

ELECT 

622 

ELECT 

623 

ELECT 

624 

ELECT 

625 

ELECT 

626 

ELECT 

627 

nnn  nnet  n nnnn  non 


I?  (EXPAND!  GO  TO  90 

ELECT 

ELECT 

FI  rrT 

629 

630 

631 

ELECT 

632 

N * 0 

ELECT 

633 

DO  1 2 I » l.NPTS 

ELECT 

63A 

IF  (EOvERN(II.CQ.-l.O)  GO  TO  12 

ELECT 

635 

N » N*  | 

ELECT 

636 

EOVERNINI  ■ EOVERN(I) 

ELECT 

637 

12  CONTINUE 

ELECT 

636 

ELECT 

639 

IF  NO  VALUES  OF  E'N  (UNITS  OF  1.0E-16  VOLT  CM2)  WERE  SPECIFIED 

ELECT 

6A0 

B»  INPuTt  OEFAULT  IS  TO  THE  TABLE  VALUES  *EN*  DEFINED  ABOVE  " 

elect 

6AI 

elect 

6A2 

IF  (N.nE.O)  GO  TO  25 

ELECT 

643 

00  26  I ■ l.NPTS 

ELECT 

644 

IF  (EN(I).EO.O.I  GO  TO  25 

ELECT 

645 

N • I 

ELECT 

6A6 

26  EOvERN(I)  ■ EM ( I > 

elect 

647 

25  NRTs  ■ N 

ELECT 

648 

ELECT 

649 

nn  - 0 

ELECT 

650 

15  IF  (NN.EQ.NPTS)  GO  TO  60 

ELECT 

651 

NN  * Nn*1 

ELECT 

652 

EVCM  » EOVErn(NN)»1.0E-16»NNOL 

ELECT 

653 

90  CONyUGE  • -FALSE. 

ELECT 

654 

ELECT 

FLrrT 

655 

AC4 

ELECT 

657 

CALL  BOLTZ  (MGRIOM*  MESH.  NK,  NAME.  Fit  NGASt  NHOL.  TMOL.  ITMAX. 

ELECT 

658 

1 TM»x«  EPS*  KAPT • TODAY.  OUT,  EVCM.  NE.  PROCESS*  U,  NI*  N2.  NEL* 

ELECT 

659 

2 s.  beam*  create*  ev*  q.  omom,  f*  g*  a,  b.  vsig*  power*  pcoll* 

ELECT 

660 

3 DISCH,  DEPOSIT.  DEDT.  ELASTIC.  DNEDT.  OLNEOT . IONIZE.  ATTACH,  VO. 

ELECT 

661 

A Mu,  0,  EK.  AMPS,  UBAR,  TE.  CONVRGE*  PERCENT) 

ELECT 

662 

ELECT 

TLrrr 

6*3 

6*4 

ELECT 

665 

EXPAND  * «. NOT. CONVRGE) .OR. (ABS(PCRCENT) .GT.PCT) 

ELECT 

666 

EXPAND  « EAPANO.ANO.IEMAX.LE.25.) 

ELECT 

667 

expand  • .false. 

ELECT 

668 

if  (EXPANO)  go  TO  40 

ELECT 

669 

IF  (.not. CONVRGE)  GO  TO  60 

ELECT 

670 

ELECT 

671 

PWR  ■ 0ISCH  * OEPOSIT 

ELECT 

672 

TABLElNN.il  a EOVERN(NN) 

ELECT 

673 

TABLE  INN, 2)  ■ UBAR 

ELECT 

674 

TABLE  INN, 3)  a EK 

ELECT 

675 

TABLEINN.A)  a TE 

ELECT 

676 

TABLE  INN, 5)  a VO 

ELECT 

677 

TABLE  INN, 6)  • MU 

ELECT 

678 

TABLE  INN, 7)  a 0 

ELECT 

679 

TABLE  INN, §1  a PwR/NHOL 

ELECT 

680 

TABLE  INN, 9)  a AMPS 

ELECT 

681 

ELECT 

682 

IF  (PWR. E«. 0.)  PWR  ■ AMAX 1 ( ABS ( EL AST  I C ) • ABS ( PCOLL  > * ABS I DEOT I I 

ELECT 

683 

PINn.NkPD  ■ EL  AST  I C*  1 00  . /PWR 

ELECT 

684 

1)0  A J • 1*NK 

ELECT 

685 

122 
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p(NNtJ)  « POWER(J)/PWR*100. 

iF  (VSlG(ltJ) .GT.O.)  RATE (NN» l » J)  a ALOG10 ( VSIGC 1 . J) » 
4 I?  (VSlG(2»J).GT.O.)  RATE  INN, ?,J)  a ALOGIO (VSIGI2. J) ) 

GO  TO  15 

60  If  (NN.E0.ll  GO  TO  SO 
NPTS  » NN 
nGI  a nGAS-1 

NSPACE  « 58  - 6*NGAS 

ENCODE  (150.230.FORM)  NSPACE.  NG1*  NGl 


TABULAR  OUTPUT  OF  PLASMA  PARAMETERS  FOR  THE  SPECIFIED  GAS  MIXTURE 
FOR  SEVERAL  VALUES  OF  E/N  — 

IF  ( .NOT .OUT (8) ) GO  TO  2 
L ■ 22-NpTS 
IF  (L.GT.9)  L ■ 9 
ENCODE  dO. 100. SKIP)  L 
WRITE  (6.SKIP) 

WRITE  (6.120) 

IF  (NGAS.EO.l)  WRITE  (6.220 ) NAME(l).  TMOL 

IF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAME ( I ) • I « I.NGAS).  (Fid).  I ■ 

1 I.NGAS).  TMOL 
WRITE  (6.130) 

DO  52  N « l.NPTS 

52  WRITE  (6.140)  (TABLE(N.I).  I ■ 1.9) 

WRITE  (6.1.S0)  EMAX.  MESH.  OE 

TABULAR  OUTPUT  OF  FRACTIONAL  POWER  PARTITIONING  FOR  EACH  OF  THE 
elastic  and  INELASTIC  collision  processes  AS  A FUNCTION  OF  E/N  — 

Ml  a 1 

14  IF  (M1.GT.NKP1)  GO  TO  2 
M2  a Ml«20 

IF  (NKPl.LT. M2)  M2  - NKP1 
LSKIP  a 20-M2.M1 
IF  (LSKIP.LE.O)  LSKIP  * 1 
ENCODE  (20.310.DV)  LSKIP 
L*  « 1 

10  IF  (Ll.GT.NPTS)  GO  TO  21 
L2  a LI *5 

If  (L2.GT.NPTS)  L2  ■ NPTS 
NSPACE  ■ «5-L2»LD*15/2  ♦ S 
L2l  » l2"»-1 
NM2  a NSPACE-2 
NUAsH  a 54  * 15»L2l 

ENCODE  d 00, 260 .LABEL)  NSPACE.  L21.  NSPACE 
ENCOOE  (20,290. VO)  NM2,  NOASH 
ENCODE  (SO.jOO.KAPT)  NSPACE.  L21 
WRITE  (6.0T) 

WRITE  (6.270) 

If  (NGAS.EO.l)  WRITE  (6.220)  NAMEd).  TMOL 

If  (NGAS.GT.li  mRITE  (6. FORM)  (NAME(1>.  I a I.NGAS),  (Fid),  I « 

1 I.NGAS).  TMOL 

WRITE  (6. LABEL)  (EOVERN(L),  L a L1.L2) 
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WRITE  (6. VO) 

00  19  N * H1«M2 

19  WRITE  (6»KApT ) (PROCESS (L.N> . L * l.A>.  (P(L.N>.  L ■ LI. (-2) 
WRITE  (6.V0) 

Ll  « L2»l 
GO  TO  10 
21  Hi  « HZM 
G«  TO  1* 


PLOTS  Of  PLASMA  parameters  for  the  SPECIFIED  gas  mixture  as  a 

FUNCTION  OF  E/NT0T  — 

2 IF  (NPtS.LT. S)  GO  TO  SO 

yO(l)  s TO (21  * OY  Cl)  ■ 0Y(2)  a 0. 

IF  ( .NOT .OUT (9| ) GO  TO  30 

WRITE  (6.170) 

IF  (NGAS.EQ.1)  WRITE  (6.220)  NAME < 1) . TMOL 

IF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAME(I).  I * I.NGAS).  (Fid).  I « 

1 I.NgAS).  TMOL 

CALL  PLOT  (21.  NPTS.  1.  T ABLE (1.2).  YO.  DY.  EOVERN.  0..  0.. 

1 .TRUE..  .TRUE..  .TRUE..  .TRUE..  .TRUE..  HEAO(2) • 2.  0) 

WRITE  (6.200)  TOOAY 

WRITE  (6.180) 

IF  (NGAS.EU.  1 ) WRITE  (6.220)  NAMEd).  TMOL 

IF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAME(I).  I * I.NGAS),  (Fid),  I » 

1 I.NGAS).  TMOL 

C*Ll  PLOT  (21,  NPTS.  1.  TAflLE(l.A).  YO.  OY.  EOVERN.  0.,  0., 

i .true.,  .true.,  .false.,  .true.,  .true.*  heaoia).  2,  oi 
W«lTE  (6.200)  today 

WRITE  (6.190) 

]F  (NGAS.EQ.1)  WRITE  (6.220)  NAME(l).  TMOL 

lF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAMEd).  I * I.NGAS).  (Fid).  I * 

1 I.NGAS).  TMOL 

call  plot  (2i.  npts.  l.  table d.6>.  vo.  ov.  eovern.  o.,  o., 
l .true.,  .true.,  .false.,  .true.,  .true..  hea0(6>,  2.  o) 

WRITE  (6.200)  TODAY 
WRITE  (6.210) 

IF  (NGAS.EQ.1)  WRITE  (6.220)  NAMEd).  TMOL 

IF  (NGAS.GT.l)  WRITE  (6.F0RM)  (NAMEd).  I > I.NGAS).  (Fid).  I * 

1 I.NGAS).  TMOL 

call  plot  (zi,  npts.  i.  taule(i.8>.  yo.  dv,  eovern.  o..  o., 
l .true.,  .true.,  .false.,  .true.,  .true.*  heao(B).  2*  o> 

WRITE  (6.200)  TOOAY 

plots  of  lnoothermic  electron  collision  rates  <vsig>  <cm3/seo  for 

all  of  THE  INELASTIC  COLLISION  PROCESSES,  as  a FUNCTION  of  e/ntot 

30  IF  (.NOT. OUT (10 ))  GO  To  50 
DO  16  J ■ l.NK 
nPLOT  * o 

IF  (VSlGd.J)  .GT.O.)  NPLOT  ■ 1 
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IF  INPLOT .tQ.O)  GO  TO  16 

IF  (NEL(J) .£0.0)  NPLOT  ■ NPLOTM 

ENCODE  (20.160.KAPT)  J,  J 

write  (6.240)  J.  (PROCESS! I * Jl.  1*1. *1 

IF  INGAS. iO. I)  WRITE  (6.220)  NAMED) . TMOL 

IF  (NGAS.GT.l)  WRITE  (6. FORM)  (NAMe(I).  I « l.NGAS).  (FKI).  I * 
1 l.NG*S).  TMOL 

CALL  PLOT  (21,  NPTS*  1.  RATED. l.J).  0..  0..  EOVERN.  0..  0.. 

1 .TRUE.*  .TRUE.*  .TRUC.»  .TRUE.*  .TRUE..  KAPT.  NPLOT.  0) 

WRITE  (6.200)  TODAY 
16  CONTINUE 

GO  TO  50 


— — format  statements 

100  FORMAT  (5H( 1H1*«I1.4H(/) 1 1 
110  FORMAT  IA10.3E10.3) 


111  FORMAT  (12*)  •AAlO.SA) 


112  FORMAT  (1H1/20X*WARNING  — *//25*#ERRORS  OCCURRED  FOR  THE  INPUT  E- 
1CROSS  SECTIONS  FOR  The  FOLLOWING  electron  COLLISION  */25X*PROCESSE 
2S«  IF  THE  PROGRAM  IS  EXECUTEO,  A ZERO  CROSS  SECTION  WILL  BE  ASSUN 
3EO«*//20X.9ODH-)//(A0X.SAl0) ) 

113  FORMAT  (‘MOMENTUM  TRANSFER  FOR  *.A10> 

1 1 A FORMAT  (14, 16) 

115  FORMAT  (10DH  )*NO  E-  CROSS  SECTION  OAtA  WAS  FOUND.*) 

116  FORMAT  ( 10 ( 1H  )*SlGMA  . 0 IN  THE  RANGE  (0«*FA.1*I  EV.*t 


117  FORMAT 

118  FORMAT 

119  FORMAT 

120  FORMAT 


(10(1H  )*ERRORS  OCCURRED  IN  CROSS  SECTION  DATA.*) 

(10DH  I ‘CROSS  SECTION  DOES  NOT  SPAN  I0.*F4.1*1  EV.*) 

( 10 ( 1H  )*TME  MASS  ENTERED  FoR  THIS  SPECIES  IS  < 0*) 
(42X*SUMMARV  OF  PLASMA  PARAMETERS  AS  A FUNCTION  OF  E/NTOT*) 


130  FORMAT  (/1AX.*E/NT0T*.7X.*UBAR*,3X,*EM  * 0/MU*.5X.*TE*. 10X.*VO*. 

1 12x.*MU*. 13X»*D*9x*P/NM0L/NE*3X* 1 1HJ/NE  « E*VD/l IX,* (E-16  V CM2)* 
2*A*(EV)*.5X,*(EV)*.6x.*(DEG  K ) •,5X»* (CM/S) *,7X«* (CM2/V/S) *.6X. 
3*(Cm2/S)*«AX.*IWCM3/ELM0L)*.1X,*(AMP  CM/ELECT) */10x. 1 16( 1M- ) ) 


no  FORMAT  (/10x,F10.3«F11.3.F10.3.F11.0, 1P5E14.3) 

150  FORMAT  (/10x» I 16( 1H“) ZZ36X* (THE  ELECTRON  ENERGY  RANGE  tO.*F5.1*l  E 
IV  WAS  DlVIOEO  INTO  *.I4/36X,  • INTERVALS,  GIVING  AN  ENERGY  RESOLU 

2TI0N  OF  DU  «*,1PE9.2,*  EV.)*) 

160  FORMAT  (6HVSIGF ( • I2.2HI  .6HVSIGR ( . I2.2H)  ) 

170  FORMAT  (1H1/aaX*AVERAG£  AND  CHARACTERISTIC  ELECTRON  ENERGY  (EV)*I 
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c 

1 AO  FORMAT  C1HU2**EFFCCTIVE  ELECTRON  TEMPERATURE  ANO  DRIFT  VELOCITY*! 
C 

190  FORMAT  !1HI/*6X*ELECTR0N  NOBILITY  AND  DIFFUSION  COEFFICIENT*) 

c 

200  FORMAT  (/S6x*E/NT0r  (1.0  E-16  VOLT  CM2)*lBX*DR.  WILLIAM  B.  LACINA* 
l*All/100X*NORTHROP  RESEARCH  ANO  TECHNOLOGY*) 

C 

210  FORMAT  (1HU2X*T0TAL  ELECTRICAL  POWER  AND  CURRENT  DENSITY  PER  NE*) 
C 

2? 0 FORMAT  (55X,*PuRE  *«A3.*  THOL  »**F5.0,*  DEG  K*/! 

C 

230  FORMAT  (1H(,I2,AHXA3«.I2.20H(*/*A3),*  » *2PF6.2. , 12. 38H (•  /*F6.2I» 
1*»  TM0L  **»0PF5.0*  DEG  K*/l ) 

C 

2*0  FORMAT  (1H1,33x**L0G  PLOT  OF  ELECTRON  COLLISION  RATES  «VSIG>  (CN3/ 
1SEC)  For  REACTION  (*I2*)*/55x,*A10/) 

c 

2S0  FORMAT  (BA10) 

C 

200  FORMAT  (80A1) 

C 

270  FORMAT  (IBX*SUMMaRY  OF  FRACTIONAL  « POwER  PARTITION  FOR  ALL  ELECTR 
ION  COLLISION  PROCESSES  AS  A FUNCTION  OF  E/NTOT*) 

C 

2n0  FORMAT  (*(/*I2AX.AX*REACTION*lSX*E/NTOT  — > *F7,2.PI1*F15.2/*. 

1I2MX.2AX*(1,0E-16  V CM2)*)A) 

C 

290  FORMAT  (1M(,I2XX.#I3*(1H-)/)*) 

C 

300  FORMAT  (lH(,I2*X.AAl0tF8.3,*H*F15.3/»*» 

C 

310  FORMAT  (5H(1H1,.I2*(/) )•) 


C 

C 

C 

C 


C 


C 

C 

C 

C 


320  FORMAT  (‘MOMENTUM  TRANSFER  COLLISIONS*) 

330  FORMAT  (SO**NO  FURTHER  WARNING  DIAGNOSTICS  WILL  BE  ISSUED.*) 

3*0  FORMAT  (50*) 

350  FORMAT  (/J0x*FATAL  ERROR  — MOMENTUM  TRANSFER  COLLISION  FREQUENCY* 
1/30x*BeCAM£  ZERO  AT  SOME  POINT  I ANALYSIS  HAS  I/QM  TERMS.*) 

360  FORMAT  (1H1.22X.  ‘NORMALIZED  EXTERNAL  SOURCE  FUNCTION  S(U)  FOR  C 
1REATI0N  OF  ELECTRONS  IN  THE  ENERGY  RANGE  lU.U»0Ul*/25x*T0TAL  ELECT 
2RON  CREATION  RATE  * MPE10.3*  CM-3/SEC,  POWER  REPOSITION  * *El0.3t 
3*  WATT/CMJ*/) 

370  FORMAT  (/92x*ELECTR0N  ENERGY  U (EV)*16X*0R.  WILLIAM  B.  LAC|NA«*All 
1/100X*NORTHROP  RESEARCH  ANO  TECHNOLOGY*) 

500  FORMAT  I 7X*ELECTR0N  KINETICS  ANALYSIS*7X) 


«»<»  call  Exit 
ENO 
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